GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki 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 4af079006b
commit 5f0d407968
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 nextmap = Map.union cs nextset
maybeExpr = Map.lookup startCateg nextset maybeExpr = Map.lookup startCateg nextset
in if isNothing maybeExpr then 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 embedInStart fss nextmap
else return $ fromJust maybeExpr else return $ fromJust maybeExpr
where where