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 8c751d404f
commit 7666f8cc59

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