From 7666f8cc5973352cc133c401c2d60098c64a87c2 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 25 Oct 2010 11:31:16 +0000
Subject: [PATCH] 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.

---
 src/compiler/GF/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GF/Compile.hs b/src/compiler/GF/Compile.hs
index 23c33cb90..083d4eb35 100644
--- a/src/compiler/GF/Compile.hs
+++ b/src/compiler/GF/Compile.hs
@@ -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