Perhaps -> Maybe refactoring and better error message for conflicts during module update

This commit is contained in:
krasimir committed 2009-02-23 12:42:44 +00:00
1 parent 2bc918bb9a
commit 01fef5109c
23 files changed
+387 -644

No files matched your search

+1 -1
View File
@@ -33,7 +33,7 @@ importGrammar pgf0 opts files =
res <- appIOE $ compileToPGF opts files
case res of
Ok pgf2 -> do return $ unionPGF pgf0 pgf2
Bad msg -> do putStrLn msg
Bad msg -> do putStrLn ('\n':'\n':msg)
return pgf0
".pgf" -> do
pgf2 <- mapM readPGF files >>= return . foldl1 unionPGF