From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 14 Sep 2004 17:05:46 +0000
Subject: gfcm header

---
 src/GF/Source/SkelGF.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF/Source/SkelGF.hs')

diff --git a/src/GF/Source/SkelGF.hs b/src/GF/Source/SkelGF.hs
index 93eac6922..544473533 100644
--- a/src/GF/Source/SkelGF.hs
+++ b/src/GF/Source/SkelGF.hs
@@ -66,7 +66,7 @@ transModBody x = case x of
 
 transExtend :: Extend -> Result
 transExtend x = case x of
-  Ext id  -> failure x
+  Ext ids  -> failure x
   NoExt  -> failure x
 
 
@@ -114,6 +114,7 @@ transTopDef :: TopDef -> Result
 transTopDef x = case x of
   DefCat catdefs  -> failure x
   DefFun fundefs  -> failure x
+  DefFunData fundefs  -> failure x
   DefDef defs  -> failure x
   DefData datadefs  -> failure x
   DefTrans defs  -> failure x
@@ -193,6 +194,7 @@ transExp x = case x of
   EInt n  -> failure x
   EMeta  -> failure x
   EEmpty  -> failure x
+  EData  -> failure x
   EStrings str  -> failure x
   ERecord locdefs  -> failure x
   ETuple tuplecomps  -> failure x
-- 
cgit v1.2.3