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

Revert "removing spaces."

Browse Source 
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

8
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)