850723c · typeable/aeson

git.iko.soy/typeable/aeson

Drop compatibility definitions of <>

commit850723c5c23a42cce5734fb6eecd02a762ba2139 authorBryan O'Sullivan <bos@serpentine.com> dateMon 25 May 2015, 12:43 (11 years ago) parent5e0956c

2 files changed+2−12

unifiedsplit

Data/Aeson/Encode.hs+1−6

@@ -29,7 +29,7 @@ module Data.Aeson.Encode

2929 ) where

3030

3131import Data.Aeson.Types (Value(..))

32−import Data.Monoid (mappend)

32+import Data.Monoid ((<>))

3333import Data.Scientific (FPFormat(..), Scientific, base10Exponent)

3434import Data.Text.Lazy.Builder

3535import Data.Text.Lazy.Builder.Scientific (formatScientificBuilder)

@@ -96,8 +96,3 @@ fromScientific s = formatScientificBuilder format prec s

9696 (format, prec)

9797 | base10Exponent s < 0 = (Generic, Nothing)

9898 | otherwise = (Fixed, Just 0)

99−

100−(<>) :: Builder -> Builder -> Builder

101−(<>) = mappend

102−{-# INLINE (<>) #-}

103−infixr 6 <>

Data/Aeson/Encode/ByteString.hs+1−6

@@ -22,7 +22,7 @@ import Data.Aeson.Types (ToJSON(..), Value(..))

2222import Data.Char (ord)

2323import Data.Scientific (Scientific, coefficient, base10Exponent)

2424import Data.Word (Word8)

25−import Data.Monoid (mappend)

25+import Data.Monoid ((<>))

2626import Data.ByteString.Builder as B

2727import Data.ByteString.Builder.Prim as BP

2828import Data.ByteString.Builder.Scientific (scientificBuilder)

@@ -32,11 +32,6 @@ import qualified Data.Text as T

3232import qualified Data.Text.Encoding as TE

3333import qualified Data.Vector as V

3434

35−(<>) :: Builder -> Builder -> Builder

36−(<>) = mappend

37−{-# INLINE (<>) #-}

38−infixr 6 <>

39−

4035-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.

4136encode :: ToJSON a => a -> L.ByteString

4237encode = B.toLazyByteString . encodeToBuilder . toJSON