forked from GitHub/gf-core
if optShowCPUTime is off just print \n in putPointE
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user