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

don't use InteractiveImport for old GHCs..

This commit is contained in:
Kazu Yamamoto 2014-04-27 22:48:24 +09:00
parent 4d2ef23f33
commit 017d4cc22f
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -202,23 +202,21 @@ withContext action = gbracket setup teardown body
body _ = do
topImports >>= setContext
action
topImports :: Ghc [InteractiveImport]
topImports = do
mss <- getModuleGraph
topImports = do
mss <- getModuleGraph
#if __GLASGOW_HASKELL__ >= 706
let modName = IIModule . moduleName . ms_mod
let modName = IIModule . moduleName . ms_mod
#elif __GLASGOW_HASKELL__ >= 704
let modName = IIModule . ms_mod
let modName = IIModule . ms_mod
#else
let modName = ms_mod
let modName = ms_mod
#endif
map modName <$> filterM isTop mss
where
isTop mos = lookupMod ||> returnFalse
map modName <$> filterM isTop mss
where
lookupMod = lookupModule (ms_mod_name mos) Nothing >> return True
returnFalse = return False
isTop mos = lookupMod ||> returnFalse
where
lookupMod = lookupModule (ms_mod_name mos) Nothing >> return True
returnFalse = return False
showSeverityCaption :: Severity -> String
#if __GLASGOW_HASKELL__ >= 706