work on checking equations

2004-10-26 11:24:32 +00:00
parent 24ba5b3b82
commit 2b9e31455d
5 changed files with 15 additions and 7 deletions
--- 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