hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "removing spaces." 

This reverts commit 986eedcc75.
This commit is contained in:
Kazu Yamamoto 2014-09-16 12:22:18 +09:00
parent 986eedcc75
commit 35a9da34a0
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-rewrite.el
View File

@ -125,8 +125,8 @@
(ghc-display nil (ghc-display nil
(lambda () (lambda ()
(insert "Possible completions:\n") (insert "Possible completions:\n")
(mapc (mapc
(lambda (x) (lambda (x)
(let* (; (ins1 (insert "- ")) (let* (; (ins1 (insert "- "))
(pos-begin (point)) (pos-begin (point))
(ins (insert x)) (ins (insert x))

10
src/GHCModi.hs
View File

@ -167,11 +167,11 @@ checkStx :: IOish m
-> FilePath -> FilePath
-> GhcModT m (String, Bool, Set FilePath) -> GhcModT m (String, Bool, Set FilePath)
checkStx set file = do checkStx set file = do
-- set' <- newFileSet set file set' <- newFileSet set file
-- let files = S.toList set' let files = S.toList set'
eret <- check [file] eret <- check files
case eret of case eret of
Right ret -> return (ret, True, set) Right ret -> return (ret, True, set')
Left ret -> return (ret, True, set) -- fxime: set Left ret -> return (ret, True, set) -- fxime: set
newFileSet :: IOish m => Set FilePath -> FilePath -> GhcModT m (Set FilePath) newFileSet :: IOish m => Set FilePath -> FilePath -> GhcModT m (Set FilePath)
@ -320,4 +320,4 @@ browseIt set mdl = do
else browse mdl else browse mdl
return (ret, True, set) return (ret, True, set)
where where
setDetailed opt = opt { detailed = True } setDetailed opt = opt { detailed = True }