diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-05-15 16:35:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-05-15 16:35:13 +0000 |
| commit | 035689f8c745a23c9a3a073d316adf82e5f7d00b (patch) | |
| tree | e1e8921cfd504dcddca5fa3fff5271598aa9b01f /src/GF/Source | |
| parent | 8af473a6f5e04ce2aaf74916d91866f1bdb62151 (diff) | |
started direct compiler from GF to GFCC
Diffstat (limited to 'src/GF/Source')
| -rw-r--r-- | src/GF/Source/GrammarToSource.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 16a68cdb0..74c98b1bc 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -153,6 +153,7 @@ trt trm = case trm of RecType r -> P.ERecord $ map trLabelling r ExtR x y -> P.EExtend (trt x) (trt y) P t l -> P.EProj (trt t) (trLabel l) + PI t l _ -> P.EProj (trt t) (trLabel l) Q t l -> P.EQCons (tri t) (tri l) QC t l -> P.EQConstr (tri t) (tri l) TSh (TComp ty) cc -> P.ETTable (trt ty) (map trCases cc) |