Skip to content
Snippets Groups Projects
Commit bdf222ca authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

main: Add overall duration to stat output

parent e1cbe91e
No related branches found
No related tags found
No related merge requests found
......@@ -182,6 +182,7 @@ main = do
(RefineCommand r) -> do
stats <- initStats (refineStats r) (refineStatsJson r)
withTime stats "overall-duration" $ do
(f, (symbolTable, encoding)) <- withTime stats "parse-duration" $ do
readCoalgebra (refineInputFile r) >>= \case
Left err -> hPutStrLn stderr err >> exitFailure
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment