From 869621db6685e36da97e87ae24de0e10d84ed571 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 15 Jan 2010 21:13:46 +0000 Subject: 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 --- src/compiler/GF/Command/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Command') 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 -- cgit v1.2.3