diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2006-06-01 21:36:17 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2006-06-01 21:36:17 +0000 |
| commit | d1fa17ba6bdf08c30d13012fd6d96b67064b4e48 (patch) | |
| tree | 6ae75a513d1ecee280f030809e900b2995809b0d | |
| parent | 501c3eed7fde4e1ca0c24fb55e6011875ca75bca (diff) | |
bugfix
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index deff5fd95..ba729e9b0 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -146,7 +146,7 @@ convertArg (TblPrj term selector) nr cat path lbl_path lin lins = convertArg (ConSel terms) nr cat path lbl_path lin lins = do sel <- member terms restrictHead lbl_path sel - restrictArg nr lbl_path sel + restrictArg nr path sel return lins convertArg StrSel nr cat path lbl_path lin lins = do projectHead lbl_path |