haskell-process | file loading: haskell-load-opens-repl: new custom

Author: deepfire

haskell-customize.el

@@ -105,6 +105,12 @@ when showing type information about symbols."
   :link '(custom-manual "(haskell-mode)haskell-interactive-mode")
   :group 'haskell)
 
+;;;###autoload
+(defcustom haskell-load-opens-repl t
+  "Whether `haskell-process-load-file' should open the REPL."
+  :group 'haskell-interactive
+  :type 'boolean)
+
 ;;;###autoload
 (defcustom haskell-process-path-ghci
   "ghci"

haskell.el

@@ -381,7 +381,8 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
   "Load the current buffer file."
   (interactive)
   (save-buffer)
-  (haskell-interactive-mode-reset-error (haskell-session) no-window-popup)
+  (haskell-interactive-mode-reset-error (haskell-session) (or no-window-popup
+							      (not haskell-load-opens-repl)))
   (haskell-process-file-loadish (format "load \"%s\"" (replace-regexp-in-string
                                                        "\""
                                                        "\\\\\""
@@ -407,7 +408,8 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
                       (if haskell-reload-p
                           "Now running :reload."
                         "Now running :load <buffer-filename>.")))
-    (if haskell-reload-p (haskell-process-reload-file) (haskell-process-load-file))))
+      (if haskell-reload-p (haskell-process-reload-file) (haskell-process-load-file
+							  (not haskell-load-opens-repl)))))
 
 ;;;###autoload
 (defun haskell-process-cabal-build ()