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

example-based grammar writing: avoid a problem by returning Nothing instead of calling error

Browse Source
This commit is contained in:
hallgren
2011-10-04 10:04:01 +00:00
parent 64daed40df
commit 21a5e3c2cb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/example-based/ExampleDemo.hs
View File

@@ -158,7 +158,7 @@ embedInStart fss cs =
nextmap = Map.union cs nextset
maybeExpr = Map.lookup startCateg nextset
in if isNothing maybeExpr then
if Map.size nextmap == Map.size cs then error $ "could't build " ++ show startCateg ++ "with " ++ show fss
if Map.size nextmap == Map.size cs then Nothing --error $ "could't build " ++ show startCateg ++ "with " ++ show fss
else embedInStart fss nextmap
else return $ fromJust maybeExpr
where