Commit 17633d3c authored by Bastian Kauschke's avatar Bastian Kauschke
Browse files

force evaluation of minimize

parent b7bead21
......@@ -611,8 +611,8 @@ main = do
part <- withTimeStat stats "refine-duration"
(stToIO $ refine (Proxy :: Proxy (Desorted SomeFunctor)) encoding (minimizeEnableOpt r))
(encoding', symbolTable') <- withTimeStat stats "minimize-duration"
(return $ minimize f encoding symbolTable part)
(encoding', symbolTable') <- withTimeStat stats "minimize-duration" $
evaluate (minimize f encoding symbolTable part)
withTimeStat stats "output-duration" $ do
T.putStrLn $ printParseableFunctor f
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment