diff options
Diffstat (limited to 'src/GF/Conversion/SimpleToFCFG.hs')
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |