diff options
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |