prescientmoon/graphql
1
0
Fork 0
forked from OSS/graphql
Code Pull Requests Activity

Use builtin scientific toBoundInteger to check for Int32 bounds

Browse Source
This commit is contained in:
Danny Navarro 2017-02-26 17:22:06 -03:00
parent 1b8fca3658
commit e521d92c7f
No known key found for this signature in database
GPG Key ID: 81E5F99780FA6A32
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Data/GraphQL/Parser.hs
View File

@ -9,10 +9,9 @@ import Control.Applicative ((<|>), Alternative, empty, many, optional)
import Control.Monad (when) import Control.Monad (when)
import Data.Char (isDigit, isSpace) import Data.Char (isDigit, isSpace)
import Data.Foldable (traverse_) import Data.Foldable (traverse_)
import Data.Int (Int32)
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Data.List.NonEmpty (NonEmpty((:|))) import Data.List.NonEmpty (NonEmpty((:|)))
import Data.Scientific (floatingOrInteger) import Data.Scientific (floatingOrInteger, scientific, toBoundedInteger)
import Data.Text (Text, append) import Data.Text (Text, append)
import Data.Attoparsec.Combinator (lookAhead) import Data.Attoparsec.Combinator (lookAhead)
@ -26,10 +25,10 @@ import Data.Attoparsec.Text
, manyTill , manyTill
, option , option
, peekChar , peekChar
, scientific
, takeWhile , takeWhile
, takeWhile1 , takeWhile1
) )
import qualified Data.Attoparsec.Text as Attoparsec (scientific)
import Data.GraphQL.AST import Data.GraphQL.AST
@ -145,14 +144,13 @@ value = ValueVariable <$> variable
<|> False <$ tok "false" <|> False <$ tok "false"
floatOrInt32Value :: Parser Value floatOrInt32Value :: Parser Value
floatOrInt32Value = do floatOrInt32Value =
n <- scientific Attoparsec.scientific >>=
case (floatingOrInteger n :: Either Double Integer) of either (pure . ValueFloat)
Left dbl -> return $ ValueFloat dbl (maybe (fail "Integer value is out of range.")
Right i -> (pure . ValueInt)
if i < (-2147483648) || i >= 2147483648 . toBoundedInteger . (`scientific` 1))
then fail "Integer value is out of range." . floatingOrInteger
else return $ ValueInt (fromIntegral i :: Int32)
-- TODO: Escape characters. Look at `jsstring_` in aeson package. -- TODO: Escape characters. Look at `jsstring_` in aeson package.
stringValue :: Parser Text stringValue :: Parser Text