on master help sign in
Minor cleanup after #462
commit6e6a1b424a2ae7bd7913ac123ec4baf790be7cc1 authorAdam Bergmark <adam@bergmark.nl> dateFri 16 Sep 2016, 17:24 (10 years ago) parentda1db20
1 file changed+1−4
Data/Aeson/Types/FromJSON.hs+1−4
Data/Aeson/Types/FromJSON.hs+1−4
@@ -104,6 +104,7 @@ import Foreign.Storable (Storable)
104104import GHC.Generics
105105import Numeric.Natural (Natural)
106106import Text.ParserCombinators.ReadP (readP_to_S)
107+import Unsafe.Coerce (unsafeCoerce)
107108import qualified Data.Aeson.Parser.Time as Time
108109import qualified Data.Attoparsec.ByteString.Char8 as A (endOfInput, parseOnly, scientific)
109110import qualified Data.DList as DList
@@ -127,8 +128,6 @@ import qualified Data.Vector.Primitive as VP
127128import qualified Data.Vector.Storable as VS
128129import qualified Data.Vector.Unboxed as VU
129130
130−import Unsafe.Coerce (unsafeCoerce)
131−
132131#ifndef HAS_COERCIBLE
133132#define HAS_COERCIBLE (__GLASGOW_HASKELL__ >= 707)
134133#endif
@@ -1317,8 +1316,6 @@ instance (FromJSON a) => FromJSON (NonEmpty a) where
13171316 parseJSON = parseJSON1
13181317 {-# INLINE parseJSON #-}
13191318
1320−
1321−
13221319-------------------------------------------------------------------------------
13231320-- scientific
13241321-------------------------------------------------------------------------------