diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-15 21:13:46 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-15 21:13:46 +0000 |
| commit | 869621db6685e36da97e87ae24de0e10d84ed571 (patch) | |
| tree | 51357a139b9d092742b6947a5c5f561c34bef1a2 /src/compiler | |
| parent | 9fc1325b9571b35eacfe2f91039e7ef0267309c8 (diff) | |
now the abstract syntax in PGF allows the same syntax for integers, floats and strings as in Haskell. This includes negative integers and exponents in the floats
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Command/Parse.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Command/Parse.hs b/src/compiler/GF/Command/Parse.hs index 44366c472..d68a0bcd7 100644 --- a/src/compiler/GF/Command/Parse.hs +++ b/src/compiler/GF/Command/Parse.hs @@ -39,9 +39,9 @@ pOption = do RP.option (OOpt flg) (fmap (OFlag flg) (RP.char '=' >> pValue)) pValue = do - fmap (VInt . read) (RP.munch1 isDigit) + fmap VInt (RP.readS_to_P reads) RP.<++ - fmap VStr pStr + fmap VStr (RP.readS_to_P reads) RP.<++ fmap VId pFilename |