Move haskell-read-directory-name to new haskell-utils.el

This addresses #187 by removing the haskell-cabal->haskell-process
dependency.

Author: hvr

haskell-cabal.el

@@ -49,8 +49,7 @@
 ;;     fields))
 
 (with-no-warnings (require 'cl))
-
-(declare-function haskell-read-directory-name "haskell-process.el" (prompt default))
+(require 'haskell-utils)
 
 (defconst haskell-cabal-general-fields
   ;; Extracted with (haskell-cabal-extract-fields-from-doc "general-fields")
@@ -164,7 +163,7 @@
    and indeed just prompting the user. Do them all."
   (let* ((file (haskell-cabal-find-file))
          (dir (when file (file-name-directory file))))
-    (haskell-read-directory-name
+    (haskell-utils-read-directory-name
      (format "Cabal dir%s: " (if file (format " (guessed from %s)" (file-relative-name file)) ""))
      dir)))
 

haskell-process.el

@@ -766,7 +766,7 @@ from `module-buffer'."
         (haskell-session-get session 'current-dir))
       (progn (haskell-session-set-current-dir
               session
-              (haskell-read-directory-name
+              (haskell-utils-read-directory-name
                (if change "Change directory: " "Set current directory: ")
                (or (haskell-session-get session 'current-dir)
                    (haskell-session-get session 'cabal-dir)
@@ -775,16 +775,6 @@ from `module-buffer'."
                      "~/"))))
              (haskell-session-get session 'current-dir))))
 
-(defun haskell-read-directory-name (prompt default)
-  "Read in a directory name, properly normalized."
-  (let ((filename (file-truename
-                   (read-directory-name
-                    prompt
-                    default
-                    default))))
-    (concat (replace-regexp-in-string "/$" "" filename)
-            "/")))
-
 (defun haskell-process-change-dir (session process dir)
   "Change the directory of the current process."
   (haskell-process-queue-command

haskell-utils.el

@@ -38,6 +38,19 @@
 ;;       require/depend-on any other haskell-mode modules in order to
 ;;       stay at the bottom of the module dependency graph.
 
+
+(defun haskell-utils-read-directory-name (prompt default)
+  "Read directory name and normalize to true absolute path.
+Refer to `read-directory-name' for the meaning of PROMPT and
+DEFAULT."
+  (let ((filename (file-truename
+                   (read-directory-name prompt
+                                        default
+                                        default))))
+    (concat (replace-regexp-in-string "/$" "" filename)
+            "/")))
+
+
 (provide 'haskell-utils)
 
 ;;; haskell-utils.el ends here