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

This commit is contained in:
krasimir
2010-01-15 21:13:46 +00:00
parent 9fc1325b95
commit 869621db66
2 changed files with 8 additions and 13 deletions

View File

@@ -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