GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki 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 a <- act >>= ioeIO . evaluate
t2 <- ioeIO $ getCPUTime t2 <- ioeIO $ getCPUTime
ioeIO $ putStrLnFlush if flag optShowCPUTime opts
(if flag optShowCPUTime opts then putStrLnE (" " ++ show ((t2 - t1) `div` 1000000000) ++ " msec")
then (' ' : show ((t2 - t1) `div` 1000000000) ++ " msec") else when (verbAtLeast opts v) $ putStrLnE ""
else "")
return a return a