Permalink
Browse files

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

  • Loading branch information...
1 parent beed712 commit 96660cb027a557a570dbb0c3df56dc30b8c32038 @chrisdone chrisdone committed May 26, 2013
Showing with 3 additions and 2 deletions.
  1. +3 −2 haskell-process.el
View
@@ -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."

0 comments on commit 96660cb

Please sign in to comment.