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

View File

@ -202,9 +202,7 @@ withContext action = gbracket setup teardown body
body _ = do body _ = do
topImports >>= setContext topImports >>= setContext
action action
topImports = do
topImports :: Ghc [InteractiveImport]
topImports = do
mss <- getModuleGraph mss <- getModuleGraph
#if __GLASGOW_HASKELL__ >= 706 #if __GLASGOW_HASKELL__ >= 706
let modName = IIModule . moduleName . ms_mod let modName = IIModule . moduleName . ms_mod