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

one more try.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-28 11:26:06 +09:00
parent ca6ca23aa7
commit f413cda0fe
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Language/Haskell/GhcMod/Gap.hs
View File

@ -204,7 +204,12 @@ withContext action = gbracket setup teardown body
action action
topImports = do topImports = do
mss <- getModuleGraph mss <- getModuleGraph
map modName <$> filterM isTop mss ms <- map modName <$> filterM isTop mss
#if __GLASGOW_HASKELL__ >= 704
return ms
#else
return (ms,[])
#endif
isTop mos = lookupMod mos ||> returnFalse isTop mos = lookupMod mos ||> returnFalse
lookupMod mos = lookupModule (ms_mod_name mos) Nothing >> return True lookupMod mos = lookupModule (ms_mod_name mos) Nothing >> return True
returnFalse = return False returnFalse = return False
@ -216,7 +221,7 @@ withContext action = gbracket setup teardown body
setCtx = setContext setCtx = setContext
#else #else
modName = ms_mod modName = ms_mod
setCtx = flip setContext [] setCtx = uncurry setContext
#endif #endif
showSeverityCaption :: Severity -> String showSeverityCaption :: Severity -> String