From c764a758e1a5e0eab346a2c3c88b7e8a9c64e248 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 21 Feb 2008 08:04:43 +0000
Subject: documenting testgf3

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

(limited to 'src/GF/Devel/Compile/SourceToGF.hs')

diff --git a/src/GF/Devel/Compile/SourceToGF.hs b/src/GF/Devel/Compile/SourceToGF.hs
index f501fd609..64455f907 100644
--- a/src/GF/Devel/Compile/SourceToGF.hs
+++ b/src/GF/Devel/Compile/SourceToGF.hs
@@ -444,6 +444,7 @@ transExp x = case x of
 ----  ELin id -> liftM G.LiT $ transIdent id
 
   EEqs eqs -> liftM G.Eqs $ mapM transEquation eqs
+  EData -> return G.EData
 
   _ -> Bad $ "translation not yet defined for" +++ printTree x ----
 
-- 
cgit v1.2.3