Added nix-shell-cabal-repl support.

Author: alexanderkjeldaas

haskell-process.el

@@ -120,7 +120,8 @@ See `haskell-process-do-cabal' for more details."
   'ghci
   "The inferior Haskell process type to use."
   :type '(choice (const ghci) (const cabal-repl) (const cabal-dev)
-                 (const cabal-ghci) (const nix-shell-ghci))
+                 (const cabal-ghci) (const nix-shell-ghci)
+                 (const nix-shell-cabal-repl))
   :group 'haskell-interactive)
 
 (defcustom haskell-process-log
@@ -519,7 +520,8 @@ for various things, but is optional."
 path. This allows modules such as 'Path_...', generated by cabal,
 to be loaded by ghci."
   (unless (or (eq 'cabal-repl haskell-process-type)  ;; redundant with "cabal repl"
-              (eq 'nix-shell-ghci haskell-process-type))
+              (eq 'nix-shell-ghci haskell-process-type)
+              (eq 'nix-shell-cabal-repl haskell-process-type))
     (let*
         ((session       (haskell-session))
          (cabal-dir     (haskell-session-cabal-dir session))
@@ -551,10 +553,15 @@ to be loaded by ghci."
                            ('nix-shell-ghci (concat haskell-process-path-nix-shell
                                                     " "
                                                     haskell-process-args-nix-shell
-                                                    " --command '")))
+                                                    " --command '"))
+                           ('nix-shell-cabal-repl (concat haskell-process-path-nix-shell
+                                                          " "
+                                                          haskell-process-args-nix-shell
+                                                          " --command '")))
                          (caddr state)
                          (case haskell-process-type
                            ('nix-shell-ghci "'")
+                           ('nix-shell-cabal-repl "'")
                            (t ""))))))
 
       :live
@@ -1086,6 +1093,19 @@ now."
              (format "Starting inferior nix-shell (ghci) process using %s..."
                      (mapconcat 'identity args " "))
              'face font-lock-comment-face))
+           (apply #'start-process
+                  (append (list (haskell-session-name session)
+                                nil)
+                          args))))
+         ('nix-shell-cabal-repl
+          (let ((args (append (list haskell-process-path-nix-shell)
+                              haskell-process-args-nix-shell
+                              '("--command" "cabal repl"))))
+           (haskell-process-log
+            (propertize
+             (format "Starting inferior nix-shell (cabal repl) process using %s..."
+                     (mapconcat 'identity args " "))
+             'face font-lock-comment-face))
            (apply #'start-process
                   (append (list (haskell-session-name session)
                                 nil)