-import Module ( Module, ModuleName, PackageName )
-import CmStaticInfo ( PCI(..), Package(..) )
+import Module ( Module, ModuleName, PackageName,
+ moduleNameUserString )
+import CmStaticInfo ( Package(..), PackageConfigInfo(..) )
- = SourceOnly ModuleName Path -- .hs
- | ObjectCode ModuleName Path Path -- .o, .hi
+ = SourceOnly ModuleName FilePath -- .hs
+ | ObjectCode ModuleName FilePath FilePath -- .o, .hi
mkFinder :: [(ModuleName,PackageName,FilePath)] -> [FilePath] -> Finder
mkFinder pkg_ifaces home_dirs modnm
= do found <- mkFinderX pkg_ifaces home_dirs modnm
mkFinder :: [(ModuleName,PackageName,FilePath)] -> [FilePath] -> Finder
mkFinder pkg_ifaces home_dirs modnm
= do found <- mkFinderX pkg_ifaces home_dirs modnm
- putStrLn ("FINDER: request = " ++ modnm ++ "\n" ++
- "FINDER: response = " ++ showSDoc (ppr found))
+ --putStrLn ("FINDER: request = " ++ modnm ++ "\n" ++
+ -- "FINDER: response = " ++ showSDoc (ppr found))
- -> do hPutStr stderr ( "GHCI: warning: module `" ++ modnm ++
- "' appears as both a home and package module\n")
+ -> do --hPutStr stderr ( "GHCI: warning: module `" ++ modnm ++
+ -- "' appears as both a home and package module\n")
where
object thi to = Just (ObjectCode modname nm_o nm_hi, max thi to)
source ths = Just (SourceOnly modname nm_hs, ths)
where
object thi to = Just (ObjectCode modname nm_o nm_hi, max thi to)
source ths = Just (SourceOnly modname nm_hs, ths)