projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d65ff9c
)
[project @ 2000-11-08 16:24:01 by simonmar]
author
simonmar
<unknown>
Wed, 8 Nov 2000 16:24:01 +0000
(16:24 +0000)
committer
simonmar
<unknown>
Wed, 8 Nov 2000 16:24:01 +0000
(16:24 +0000)
remove traces
ghc/compiler/main/Finder.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/Finder.lhs
b/ghc/compiler/main/Finder.lhs
index
c833bf6
..
5125fee
100644
(file)
--- a/
ghc/compiler/main/Finder.lhs
+++ b/
ghc/compiler/main/Finder.lhs
@@
-52,10
+52,6
@@
initFinder pkgs
; writeIORef v_HomeDirCache Nothing
-- lazilly fill in the package cache
; writeIORef v_PkgDirCache (unsafePerformIO (newPkgCache pkgs))
; writeIORef v_HomeDirCache Nothing
-- lazilly fill in the package cache
; writeIORef v_PkgDirCache (unsafePerformIO (newPkgCache pkgs))
-
--- Debug output
--- ; pkg_dbg_info <- readIORef v_PkgDirCache
--- ; putStrLn (unlines (map show (fmToList pkg_dbg_info)))
}
emptyHomeDirCache :: IO ()
}
emptyHomeDirCache :: IO ()
@@
-64,16
+60,6
@@
emptyHomeDirCache
findModule :: ModuleName -> IO (Maybe (Module, ModuleLocation))
findModule name
findModule :: ModuleName -> IO (Maybe (Module, ModuleLocation))
findModule name
- = do { hPutStr stderr ("findModule: " ++ moduleNameUserString name ++ " ... ")
- ; maybe_m <- findModule_wrk name
- ; case maybe_m of
- Nothing -> hPutStrLn stderr "Not Found"
- Just mm -> hPutStrLn stderr (showSDoc (ppr (snd mm)))
- ; return maybe_m
- }
-
-findModule_wrk :: ModuleName -> IO (Maybe (Module, ModuleLocation))
-findModule_wrk name
= do { j <- maybeHomeModule name
; case j of
Just home_module -> return (Just home_module)
= do { j <- maybeHomeModule name
; case j of
Just home_module -> return (Just home_module)