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

Merge pull request #34 from thoughtpolice/ghc-7.4

Browse Source 
Add support for GHC 7.4.1
This commit is contained in:
Kazu Yamamoto 2011-12-25 23:15:58 -08:00
commit e4d47de1f8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Info.hs
View File

@ -107,9 +107,15 @@ inModuleContext opt fileName modstr action = withGHC valid
setContextFromTarget :: Ghc Bool setContextFromTarget :: Ghc Bool
setContextFromTarget = do setContextFromTarget = do
ms <- depanal [] False ms <- depanal [] False
#if __GLASGOW_HASKELL__ >= 704
top <- map (IIModule . ms_mod) <$> filterM isTop ms
setContext top
#else
top <- map ms_mod <$> filterM isTop ms top <- map ms_mod <$> filterM isTop ms
setContext top [] setContext top []
return (top /= []) #endif
return (not . null $ top)
where where
isTop ms = lookupMod `gcatch` returnFalse isTop ms = lookupMod `gcatch` returnFalse
where where