From 9f867c4922cccb6e61b273a55103e2afaeac4bde Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 11 Dec 2005 17:48:55 +0000
Subject: float parsing fixed

---
 src/GF/Canon/MkGFC.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/GF/Canon/MkGFC.hs')

diff --git a/src/GF/Canon/MkGFC.hs b/src/GF/Canon/MkGFC.hs
index 69ccc3034..8443354fc 100644
--- a/src/GF/Canon/MkGFC.hs
+++ b/src/GF/Canon/MkGFC.hs
@@ -112,12 +112,14 @@ trExp t = case t of
     AM i   -> A.Meta $ A.MetaSymb $ fromInteger i
     AT s   -> A.Sort $ prt s
     AS s   -> A.K s
-    AI i   -> A.EInt $ fromInteger i
+    AI i   -> A.EInt $ i
+    AF i   -> A.EFloat $ i
   trPt p = case p of
     APC mc ps -> let (m,c) = trQIdent mc in A.PP m c (map trPt ps)
     APV x -> A.PV x
     APS s -> A.PString s
-    API i -> A.PInt $ fromInteger i
+    API i -> A.PInt $ i
+    APF i -> A.PFloat $ i
     APW   -> A.PW
 
 trQIdent (CIQ m c) = (m,c)
-- 
cgit v1.2.3