From e3d35965564e50b2f505ba7059293ac7f99a2a4f Mon Sep 17 00:00:00 2001 From: simonmar 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 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) -- 1.7.10.4