comment
This commit is contained in:
@@ -462,6 +462,10 @@ dbgProg p = do
|
|||||||
|
|
||||||
hdbgProg :: Program -> Handle -> IO (Node, Stats)
|
hdbgProg :: Program -> Handle -> IO (Node, Stats)
|
||||||
hdbgProg p hio = do
|
hdbgProg p hio = do
|
||||||
|
-- lazy IO causes a funny quirk here! before we had the `hPrintf` call
|
||||||
|
-- printing the final statistics, crashes would leave emit logs allowing us
|
||||||
|
-- to see the state of the machine before an error. the statistics however,
|
||||||
|
-- needs to be fully evaluated and before the logs are printed. a bit goofy.
|
||||||
hPrintf hio "==== Stats ====\n\
|
hPrintf hio "==== Stats ====\n\
|
||||||
\result : %s\n\
|
\result : %s\n\
|
||||||
\allocations : %4d\n\
|
\allocations : %4d\n\
|
||||||
|
|||||||
Reference in New Issue
Block a user