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/Source/AbsGF.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Source/AbsGF.hs')

diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs
index a92313f0b..4cdc911d2 100644
--- a/src/GF/Source/AbsGF.hs
+++ b/src/GF/Source/AbsGF.hs
@@ -164,6 +164,7 @@ data Exp =
  | ESort Sort
  | EString String
  | EInt Integer
+ | EFloat Double
  | EMeta
  | EEmpty
  | EData
@@ -213,6 +214,7 @@ data Patt =
  | PCon Ident
  | PQ Ident Ident
  | PInt Integer
+ | PFloat Double
  | PStr String
  | PR [PattAss]
  | PTup [PattTupleComp]
-- 
cgit v1.2.3