From 2b9e31455d5a5e93b5d52945a60a391a5c3adc2c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 26 Oct 2004 11:24:32 +0000
Subject: work on checking equations

---
 src/GF/Source/GrammarToSource.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Source')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index 290cb92d0..c05bd6d5f 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -152,6 +152,7 @@ trt trm = case trm of
     Alts (t, tt) -> P.EPre (trt t) [P.Alt (trt v) (trt c) | (v,c) <- tt]
     FV ts -> P.EVariants $ map trt ts
     Strs tt -> P.EStrs $ map trt tt
+    EData -> P.EData
     _ -> error $ "not yet" +++ show trm ----
 
 trp :: Patt -> P.Patt
-- 
cgit v1.2.3