bugfix

2006-06-01 21:36:17 +00:00
parent 50326c7dcd
commit 4cf5648d62
1 changed files with 1 additions and 1 deletions
--- 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