From dea5158cbf1c11d45f2ed91d9975fbc77245e652 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 2 Dec 2005 13:13:14 +0000
Subject: floats in GF and GFC (parsing user input still doesn't work)

---
 src/GF/Grammar/MMacros.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Grammar/MMacros.hs')

diff --git a/src/GF/Grammar/MMacros.hs b/src/GF/Grammar/MMacros.hs
index 8370e102a..dd7331685 100644
--- a/src/GF/Grammar/MMacros.hs
+++ b/src/GF/Grammar/MMacros.hs
@@ -335,6 +335,7 @@ exp2tree e = do
     Meta m -> return $ AtM m
     K s    -> return $ AtL s
     EInt n -> return $ AtI n
+    EFloat n -> return $ AtF n
     _ -> prtBad "cannot convert to atom" f
   ts <- mapM exp2tree xs
   return $ Tr (N (cont,at,uVal,([],[]),True),ts)
-- 
cgit v1.2.3