Resolve directories to full path in session config (refs #117).

Author: chrisdone

haskell-cabal.el

@@ -160,10 +160,11 @@
    and indeed just prompting the user. Do them all."
   (let* ((file (haskell-cabal-find-file))
          (dir (when file (file-name-directory file))))
-    (read-directory-name
-     (format "Cabal dir%s: " (if file (format " (%s)" (file-relative-name file)) ""))
-     nil
-     (or dir default-directory))))
+    (file-truename
+     (read-directory-name
+      (format "Cabal dir%s: " (if file (format " (%s)" (file-relative-name file)) ""))
+      nil
+      (or dir default-directory)))))
 
 (defun haskell-cabal-compute-checksum (cabal-dir) 
   "Computes a checksum of the .cabal configuration files."

haskell-session.el

@@ -228,12 +228,14 @@
 
 (defun haskell-session-set-cabal-dir (s v)
   "Set the session cabal-dir."
-  (haskell-session-set s 'cabal-dir v)
-  (haskell-session-set-cabal-checksum s v))
+  (let ((true-path (file-truename v)))
+    (haskell-session-set s 'cabal-dir true-path)
+    (haskell-session-set-cabal-checksum s true-path)))
 
 (defun haskell-session-set-current-dir (s v)
   "Set the session current directory."
-  (haskell-session-set s 'current-dir v))
+  (let ((true-path (file-truename v)))
+    (haskell-session-set s 'current-dir true-path)))
 
 (defun haskell-session-set-cabal-checksum (s cabal-dir)
   "Set the session checksum of .cabal files"