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

simplifying modSummary.

Browse Source
This commit is contained in:
Kazu Yamamoto
2014-04-11 12:41:39 +09:00
parent 3ed59464f0
commit 196450af9f
2 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -184,22 +184,24 @@ fOptions = [option | (option,_,_) <- fFlags]
----------------------------------------------------------------
----------------------------------------------------------------
setCtx :: [ModSummary] -> Ghc Bool
setCtx :: FilePath -> [ModSummary] -> Ghc ModSummary
#if __GLASGOW_HASKELL__ >= 704
setCtx ms = do
setCtx file mss = do
#if __GLASGOW_HASKELL__ >= 706
let modName = IIModule . moduleName . ms_mod
#else
let modName = IIModule . ms_mod
#endif
top <- map modName <$> filterM isTop ms
top <- map modName <$> filterM isTop mss
setContext top
return (not . null $ top)
let [ms] = filter (\m -> ml_hs_file (ms_location m) == Just file) mss
return ms
#else
setCtx ms = do
top <- map ms_mod <$> filterM isTop ms
setCtx file mss = do
top <- map ms_mod <$> filterM isTop mss
setContext top []
return (not . null $ top)
let [ms] = filter (\m -> ml_hs_file (ms_location m) == Just file) mss
return ms
#endif
where
isTop mos = lookupMod ||> returnFalse