GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 22:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

if optShowCPUTime is off just print \n in putPointE

Browse Source
This commit is contained in:
krasimir
2008-05-29 07:34:29 +00:00
parent 0a0412c036
commit d55f529a6e
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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