From 4aff65964e5583b0d3fcd150c2065fb9a39ca86d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 26 Feb 2008 14:00:15 +0000
Subject: [PATCH] Replace fromJust with fromMaybe + error message when looking
 up lintype in SimpleToFCFG. This makes problems easier to debug.

---
 src/GF/Conversion/SimpleToFCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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