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

removing spaces.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-09-16 12:03:12 +09:00
parent 731b3200ab
commit 986eedcc75
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 files eret <- check [file]
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)