From 80cc829eabe23d6fdf45c8a3f49b3a4ba24c3c0a Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 21 Sep 2007 13:02:35 +0000 Subject: [PATCH] error msg in SimpleToFCFG.convertCon --- src/GF/Conversion/SimpleToFCFG.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index 7b003ecd9..6b580cb24 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -181,6 +181,7 @@ convertCon (ConSel indices) index lbl_path lin lins = do guard (index `elem` indices) restrictHead lbl_path index return lins +convertCon x _ _ _ _ = error $ "SimpleToFCFG,convertCon: " ++ show x convertRec cnc_defs selector index [] lbl_path lin lins = return lins convertRec cnc_defs selector@(TupleSel fields) index (val:record) lbl_path lin lins = select fields