During the compilation, the final message "OK" should be displayed only if we are not in silent mode. This was changed incidentally on the way.

This commit is contained in:
krasimir
2010-10-25 11:31:16 +00:00
parent 822a70cf7a
commit 2d3340b48a

View File

@@ -58,7 +58,7 @@ link opts cnc gr = do
putPointE Normal opts "linking ... " $ do
pgf <- ioeIO (mkCanon2pgf opts cnc gr)
probs <- ioeIO (maybe (return . defaultProbabilities) readProbabilitiesFromFile (flag optProbsFile opts) pgf)
ioeIO $ putStrLn "OK"
ioeIO $ when (verbAtLeast opts Normal) $ putStrFlush "OK"
return $ setProbabilities probs
$ if flag optOptimizePGF opts then optimizePGF pgf else pgf