From 55c65c92ceaf31a19942266b3ce462b0a3df9e89 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 9 Nov 2007 08:26:56 +0000
Subject: [PATCH] currying in paramlincat encoding

---
 src/GF/Devel/GrammarToGFCC.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs
index d5482fde9..9c5afd6ea 100644
--- a/src/GF/Devel/GrammarToGFCC.hs
+++ b/src/GF/Devel/GrammarToGFCC.hs
@@ -176,6 +176,10 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do
     RecType lts -> do
       ts <- mapM (mkPType . snd) lts
       return $ C.R [ C.P (kks $ prt_ l) t | ((l,_),t) <- zip lts ts]
+    Table (RecType lts) v -> do
+      ps <- mapM (mkPType . snd) lts
+      v' <- mkPType v
+      return $ foldr (\p v -> C.S [p,v]) v' ps
     Table p v -> do
       p' <- mkPType p
       v' <- mkPType v