error msg in SimpleToFCFG.convertCon

2007-09-21 13:02:35 +00:00
parent 0260265de0
commit 8dcfb978ef
1 changed files with 1 additions and 0 deletions
--- 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