diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-02 13:13:14 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-02 13:13:14 +0000 |
| commit | dea5158cbf1c11d45f2ed91d9975fbc77245e652 (patch) | |
| tree | 751ef7bcaccf58c43354d5b1767d3b3d3d1ac34d /src/GF/Canon/CMacros.hs | |
| parent | 50ddb387f4495beb8bd8da2b9726a087a489df68 (diff) | |
floats in GF and GFC (parsing user input still doesn't work)
Diffstat (limited to 'src/GF/Canon/CMacros.hs')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index 609e8e869..2facd6e65 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -130,6 +130,7 @@ term2patt trm = case trm of return (PR (map (uncurry PAss) (zip ll aa'))) LI x -> return $ PV x EInt i -> return $ PI i + EFloat i -> return $ PF i FV (t:_) -> term2patt t ---- _ -> prtBad "no pattern corresponds to term" trm @@ -140,6 +141,7 @@ patt2term p = case p of PW -> anyTerm ---- PR pas -> R [ Ass lbl (patt2term q) | PAss lbl q <- pas ] PI i -> EInt i + PF i -> EFloat i anyTerm :: Term anyTerm = LI (A.identC "_") --- should not happen |