diff options
Diffstat (limited to 'src/GF/Conversion/SimpleToFCFG.hs')
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index e6bc5a059..4ff5781f9 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -109,7 +109,7 @@ convert abs_defs cnc_defs cat_defs = getFGrammar (loop frulesEnv) (id, (ty,_)) <- abs_defs, let (args,res) = catSkeleton ty, term <- Map.lookup id cnc_defs] - findLinType id = fromJust (Map.lookup id cat_defs) + findLinType id = fromMaybe (error $ "No lincat for " ++ show id) (Map.lookup id cat_defs) (xrulesMap,frulesEnv) = List.foldl' helper (Map.empty,emptyFRulesEnv) srules where |