Commit e3d35965 authored by simonmar's avatar simonmar
Browse files

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

remove traces
parent d65ff9cd
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment