Just add trailing slash to `read-file-name' (#117).

haskell · May 26, 2013 · 96660cb · 96660cb
1 parent beed712
commit 96660cb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/haskell-process.el b/haskell-process.el
@@ -617,11 +617,12 @@ to be loaded by ghci."
 (defun haskell-read-directory-name (prompt default)
   "Read in a directory name, properly normalized."
   (let ((filename (file-truename
-                   (ido-read-directory-name
+                   (read-directory-name
                     prompt
                     default
                     default))))
-    filename))
+    (concat (replace-regexp-in-string "/$" "" filename)
+            "/")))
 
 (defun haskell-process-change-dir (session process dir)
   "Change the directory of the current process."