From e3d35965564e50b2f505ba7059293ac7f99a2a4f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Nov 2000 16:24:01 +0000
Subject: [PATCH] [project @ 2000-11-08 16:24:01 by simonmar] remove traces
---
ghc/compiler/main/Finder.lhs | 14 --------------
1 file changed, 14 deletions(-)
diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index c833bf6c1139..5125fee2a650 100644
--- 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))
-
--- Debug output
--- ; pkg_dbg_info <- readIORef v_PkgDirCache
--- ; putStrLn (unlines (map show (fmToList pkg_dbg_info)))
}
emptyHomeDirCache :: IO ()
@@ -64,16 +60,6 @@ emptyHomeDirCache
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)
--
GitLab