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

2026-04-09 04:59:31 -06:00 · 2008-04-25 15:49:53 +00:00
parent 955a5db693
commit 46c9a500df
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