lookupModule does not exist in GHC 6.10, sigh.
This commit is contained in:
parent
a9ebab0469
commit
a84d6952cb
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user