@@ -52,7 +52,6 @@ module Data.Aeson.Types.FromJSON
5252 , withObject
5353 , withText
5454 , withArray
55− , withNumber
5655 , withScientific
5756 , withBool
5857 , withEmbeddedJSON
@@ -646,13 +645,6 @@ withArray _ f (Array arr) = f arr
646645withArray expected _ v = typeMismatch expected v
647646{-# INLINE withArray #-}
648647
649−-- | @'withNumber' expected f value@ applies @f@ to the 'Number' when @value@
650−-- is a 'Number' and fails using @'typeMismatch' expected@ otherwise.
651−withNumber :: String -> (Number -> Parser a) -> Value -> Parser a
652−withNumber expected f = withScientific expected (f . scientificToNumber)
653−{-# INLINE withNumber #-}
654−{-# DEPRECATED withNumber "Use withScientific instead" #-}
655−
656648-- | @'withScientific' expected f value@ applies @f@ to the 'Scientific' number
657649-- when @value@ is a 'Number' and fails using @'typeMismatch' expected@
658650-- otherwise.