diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-29 09:43:35 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-29 09:43:35 +0000 |
| commit | 6550daf31cd454bca62f2b7d900414ef2150b262 (patch) | |
| tree | 0c7aeb4420cf5a54a626fdc0748a062bdc9f5cd4 /src/GF/Devel/Compile.hs | |
| parent | 4e4734f5a3e8af4270ae5f7c75a7a50490737838 (diff) | |
let the putPointE print the time in msec
Diffstat (limited to 'src/GF/Devel/Compile.hs')
| -rw-r--r-- | src/GF/Devel/Compile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Devel/Compile.hs b/src/GF/Devel/Compile.hs index bcf8ac8c7..0655913e1 100644 --- a/src/GF/Devel/Compile.hs +++ b/src/GF/Devel/Compile.hs @@ -89,12 +89,12 @@ compileModule opts1 env file = do compileOne :: Options -> CompileEnv -> FullPath -> IOE CompileEnv compileOne opts env@(_,srcgr,_) file = do - let putp s = putPointE opts ("\n" ++ s) + let putp s = putPointE opts s let putpp = putPointEsil opts let putpOpt v m act | oElem beVerbose opts = putp v act | oElem beSilent opts = putpp v act - | otherwise = ioeIO (putStrFlush ("\n" ++ m)) >> act + | otherwise = ioeIO (putStrFlush m) >> act let gf = takeExtensions file let path = dropFileName file |