haskell-process-load-file: conditionalise windop popup

Author: deepfire

haskell-interactive-mode.el

@@ -499,10 +499,10 @@ FILE-NAME only."
                t)))))
 
 ;;;###autoload
-(defun haskell-interactive-mode-reset-error (session)
+(defun haskell-interactive-mode-reset-error (session &optional no-window-popup)
   "Reset the error cursor position."
   (interactive)
-  (with-current-buffer (haskell-session-interactive-buffer session)
+  (with-current-buffer (haskell-session-interactive-buffer session no-window-popup)
     (haskell-interactive-mode-goto-end-point)
     (let ((mrk (point-marker)))
       (haskell-session-set session 'next-error-locus nil)

haskell.el

@@ -377,11 +377,11 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
     (pop-to-buffer buffer)))
 
 ;;;###autoload
-(defun haskell-process-load-file ()
+(defun haskell-process-load-file (&optional no-window-popup)
   "Load the current buffer file."
   (interactive)
   (save-buffer)
-  (haskell-interactive-mode-reset-error (haskell-session))
+  (haskell-interactive-mode-reset-error (haskell-session) no-window-popup)
   (haskell-process-file-loadish (format "load \"%s\"" (replace-regexp-in-string
                                                        "\""
                                                        "\\\\\""