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

lookupModule does not exist in GHC 6.10, sigh.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-04-28 17:02:59 +09:00
parent a9ebab0469
commit a84d6952cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Browse.hs
View File

@ -20,7 +20,7 @@ browse :: String -> IO [String]
browse mdlName = withGHCAPI (maybeNamesToStrings <$> lookupModuleInfo) browse mdlName = withGHCAPI (maybeNamesToStrings <$> lookupModuleInfo)
where where
lookupModuleInfo = lookupModule (mkModuleName mdlName) Nothing >>= getModuleInfo lookupModuleInfo = findModule (mkModuleName mdlName) Nothing >>= getModuleInfo
maybeNamesToStrings = maybe [] (map getOccString . modInfoExports) maybeNamesToStrings = maybe [] (map getOccString . modInfoExports)
withGHCAPI :: Ghc a -> IO a withGHCAPI :: Ghc a -> IO a