From: simonmar <unknown>
Date: Wed, 8 Nov 2000 16:24:01 +0000 (+0000)
Subject: [project @ 2000-11-08 16:24:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~3395
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3d35965564e50b2f505ba7059293ac7f99a2a4f;p=ghc-hetmet.git

[project @ 2000-11-08 16:24:01 by simonmar]
remove traces
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index c833bf6..5125fee 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)