diff options
Diffstat (limited to 'src/compiler/GF/Command')
| -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 |