From 035689f8c745a23c9a3a073d316adf82e5f7d00b Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 15 May 2007 16:35:13 +0000 Subject: started direct compiler from GF to GFCC --- src/GF/Source/GrammarToSource.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Source') 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) -- cgit v1.2.3