lookupModule does not exist in GHC 6.10, sigh.

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

View File

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