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/Canon | |
| parent | 17962eef1a5620e0762157d71fac20d9bb6547f7 (diff) | |
lincat index in CanonToGFCC decreased by 1
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/CanonToGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs index 3898180c1..280094023 100644 --- a/src/GF/Canon/CanonToGFCC.hs +++ b/src/GF/Canon/CanonToGFCC.hs @@ -96,7 +96,7 @@ mkCType t = case t of TStr -> C.S [] where getI pt = case pt of - C.C i -> i + C.C i -> i + 1 C.RP i _ -> getI i mkTerm :: Term -> C.Term @@ -268,7 +268,7 @@ type2type cgr env@(labels,untyps,typs) ty = case ty of _ -> ty where t2t = type2type cgr env - look ty = TInts $ toInteger $ case Map.lookup ty typs of + look ty = TInts $ (+ (-1)) $ toInteger $ case Map.lookup ty typs of Just vs -> length $ Map.assocs vs _ -> trace ("unknown partype " ++ show ty) 1 ---- 66669 |