1
0
forked from GitHub/gf-core

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