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 cd3e40a2d8
commit a04cbcfb63
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