diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-11 17:48:55 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-11 17:48:55 +0000 |
| commit | 9f867c4922cccb6e61b273a55103e2afaeac4bde (patch) | |
| tree | b31dba589c596b272d0e6ad0fec7079cd0d92ab5 /src/GF/Canon/MkGFC.hs | |
| parent | 8ee11c0e7edaa32b606ac96ec24cc2f8d0bca2e3 (diff) | |
float parsing fixed
Diffstat (limited to 'src/GF/Canon/MkGFC.hs')
| -rw-r--r-- | src/GF/Canon/MkGFC.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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) |