use putStrLn instead of print to dump error messages. This avoids the double quotes

2008-04-25 15:49:53 +00:00
parent dd85f1ab78
commit 3efe9ea55d
1 changed files with 1 additions and 1 deletions
--- a/src/GF/Command/Importing.hs
+++ b/src/GF/Command/Importing.hs
@@ -20,7 +20,7 @@ importGrammar mgr0 opts files =
      case res of
        Ok gfcc2 -> do let gfcc3 = unionGFCC (gfcc mgr0) gfcc2
                       return $ MultiGrammar gfcc3
-        Bad msg  -> do print msg
+        Bad msg  -> do putStrLn msg
                       return mgr0
    ".gfcc" -> do
      gfcc2 <- mapM file2gfcc files >>= return . foldl1 unionGFCC