diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-21 13:02:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-21 13:02:35 +0000 |
| commit | 8dcfb978efbdd4e25e47b0690e2f69664e6dbe9e (patch) | |
| tree | 7e559ecaacf3037a41f1ce27ebedb5cc72e238bb /src/GF/Conversion | |
| parent | 0260265de0cf1e05c88e6475531b589d5302ebaf (diff) | |
error msg in SimpleToFCFG.convertCon
Diffstat (limited to 'src/GF/Conversion')
| -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 |