msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Only print \n instead of CPU time in putPointE when printing the text message. This avoids printings lots of empty lines in silent mode.

Browse Source
This commit is contained in:
bjorn
2008-05-29 08:06:56 +00:00
parent 972df6996f
commit ea17e2678b
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src-3.0/GF/Infra/UseIO.hs
View File

@@ -249,10 +249,10 @@ putPointE v opts msg act = do
a <- act >>= ioeIO . evaluate
t2 <- ioeIO $ getCPUTime
ioeIO $ putStrLnFlush
(if flag optShowCPUTime opts
then (' ' : show ((t2 - t1) `div` 1000000000) ++ " msec")
else "")
if flag optShowCPUTime opts
then putStrLnE (" " ++ show ((t2 - t1) `div` 1000000000) ++ " msec")
else when (verbAtLeast opts v) $ putStrLnE ""
return a