GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

error msg in SimpleToFCFG.convertCon

Browse Source
This commit is contained in:
aarne
2007-09-21 13:02:35 +00:00
parent 6ac6a31274
commit 80cc829eab
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Conversion/SimpleToFCFG.hs
View File

@@ -181,6 +181,7 @@ convertCon (ConSel indices) index lbl_path lin lins = do
guard (index `elem` indices) guard (index `elem` indices)
restrictHead lbl_path index restrictHead lbl_path index
return lins return lins
convertCon x _ _ _ _ = error $ "SimpleToFCFG,convertCon: " ++ show x
convertRec cnc_defs selector index [] lbl_path lin lins = return lins 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 convertRec cnc_defs selector@(TupleSel fields) index (val:record) lbl_path lin lins = select fields