diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-09 12:17:42 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-09 12:17:42 +0000 |
| commit | a34eed5189ab21d08cecc7171815bb51f7ff18b9 (patch) | |
| tree | 2bbfc4aa23e23cb56663c97b9270702606d3f69c /src/GF/Devel/GrammarToGFCC.hs | |
| parent | aa94e340980f715b8d20e6cbc60d989b5c59e6b5 (diff) | |
lincat can now be just Str
Diffstat (limited to 'src/GF/Devel/GrammarToGFCC.hs')
| -rw-r--r-- | src/GF/Devel/GrammarToGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index 0d24113dd..520b9a3f5 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -440,8 +440,8 @@ term2term cgr env@(labels,untyps,typs) tr = case tr of Just vs -> (ty,[t | (t,_) <- sortBy (\x y -> compare (snd x) (snd y)) (Map.assocs vs)]) - _ -> error $ A.prt ty - _ -> error $ A.prt tr + _ -> error $ "doVar1" +++ A.prt ty + _ -> error $ "doVar2" +++ A.prt tr +++ show (cat,lab) ---- debug updateSTM ((tyvs, (tr', tr)):) return tr' _ -> GM.composOp doVar tr |