From 035689f8c745a23c9a3a073d316adf82e5f7d00b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 15 May 2007 16:35:13 +0000
Subject: started direct compiler from GF to GFCC

---
 src/GF/Compile/GrammarToCanon.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Compile/GrammarToCanon.hs')

diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index e0e245163..09c0d3d95 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -218,6 +218,7 @@ redCTerm t = case t of
   P tr l -> do
     tr' <- redCTerm tr
     return $ G.P tr' (redLabel l)
+  PI tr l _ -> redCTerm $ P tr l -----
   T i cs     -> do
     ty  <- getTableType i
     ty' <- redCType ty
-- 
cgit v1.2.3