Perhaps -> Maybe refactoring and better error message for conflicts during module update
This commit is contained in:
1 parent
2bc918bb9a
commit
01fef5109c
23 files changed
+387
-644
No files matched your search
@@ -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
|
||||
|
||||
Reference in new issue
Block a user