msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
krasimir
2008-04-25 15:49:53 +00:00
parent dd85f1ab78
commit 3efe9ea55d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Command/Importing.hs
View File

@@ -20,7 +20,7 @@ importGrammar mgr0 opts files =
case res of case res of
Ok gfcc2 -> do let gfcc3 = unionGFCC (gfcc mgr0) gfcc2 Ok gfcc2 -> do let gfcc3 = unionGFCC (gfcc mgr0) gfcc2
return $ MultiGrammar gfcc3 return $ MultiGrammar gfcc3
Bad msg -> do print msg Bad msg -> do putStrLn msg
return mgr0 return mgr0
".gfcc" -> do ".gfcc" -> do
gfcc2 <- mapM file2gfcc files >>= return . foldl1 unionGFCC gfcc2 <- mapM file2gfcc files >>= return . foldl1 unionGFCC