diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-25 15:49:53 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-25 15:49:53 +0000 |
| commit | 46c9a500df0b893aed46c17fbb487bec8e5940c3 (patch) | |
| tree | 4740f2839d0af5e83476e371171cd760d3f75993 | |
| parent | 955a5db6932a80d398730e75414bed455ebf02a9 (diff) | |
use putStrLn instead of print to dump error messages. This avoids the double quotes
| -rw-r--r-- | src/GF/Command/Importing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Command/Importing.hs b/src/GF/Command/Importing.hs index b223e3e5c..a09ba8de6 100644 --- 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 |