shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Change 'import' to 'loaded' in a message

--- a/src/MicroHs/Compile.hs

+++ b/src/MicroHs/Compile.hs

@@ -103,7 +103,7 @@

         liftIO $ putStrLn $ "importing done " ++ showIdent mn ++ ", " ++ show (tp + tt) ++

                  "ms (" ++ show tp ++ " + " ++ show tt ++ ")"

       when (loading flags && mn /= mkIdent "Interactive") $

-        liftIO $ putStrLn $ "import " ++ showIdent mn

+        liftIO $ putStrLn $ "loaded " ++ showIdent mn

       c <- get

       put $ Cache (tail (working c)) (M.insert mn cm (cache c))

       return (cm, tp + tt + ts)

-- 

⑨