don't use InteractiveImport for old GHCs..

2014-04-27 22:48:24 +09:00 · 2014-04-27 22:48:24 +09:00 · 017d4cc22f
commit 017d4cc22f
parent 4d2ef23f33
1 changed files with 10 additions and 12 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@ -202,9 +202,7 @@ withContext action = gbracket setup teardown body
    body _ = do
        topImports >>= setContext
        action
-
-topImports :: Ghc [InteractiveImport]
-topImports = do
+    topImports = do
        mss <- getModuleGraph
 #if __GLASGOW_HASKELL__ >= 706
        let modName = IIModule . moduleName . ms_mod