diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-03 16:15:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-03 16:15:33 +0000 |
| commit | 70c8cff0f915d241d5c4e3465b5d1238ee714357 (patch) | |
| tree | e149158fa91f0972b6e7391c5b013dd349615bae /src/GF/Conversion/SimpleToFCFG.hs | |
| parent | 17962eef1a5620e0762157d71fac20d9bb6547f7 (diff) | |
lincat index in CanonToGFCC decreased by 1
Diffstat (limited to 'src/GF/Conversion/SimpleToFCFG.hs')
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index 79eea13bd..75aae1907 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -212,7 +212,7 @@ unifyPType nr path (C max_index) = let (FCat _ _ _ tcs,_) = args !! nr case lookup path tcs of Just index -> return index - Nothing -> do index <- member [0..max_index-1] + Nothing -> do index <- member [0..max_index] restrictArg nr path index return index unifyPType nr path (RP alias _) = unifyPType nr path alias @@ -306,7 +306,7 @@ genFCatArg ctype env@(FRulesEnv last_id fcatSet rules) m1@(FCat _ cat rcs tcs) = case List.lookup path tcs of Just index -> return $! addConstraint path index acc Nothing -> do writeState True - index <- member [0..max_index-1] + index <- member [0..max_index] return $! addConstraint path index acc where addConstraint path0 index0 (c@(path,index) : cs) |