@@ -46,11 +46,13 @@ decodeA s = case A.decode s of
4646encodeJ :: J.JSValue -> BL.ByteString
4747encodeJ = toLazyByteString . fromString . J.encode
4848
49+#if MIN_VERSION_bytestring(0,10,4)
4950encodeToText :: A.Value -> TL.Text
5051encodeToText = TLB.toLazyText . A.encodeToTextBuilder . A.toJSON
5152
5253encodeViaText :: A.Value -> BL.ByteString
5354encodeViaText = TLE.encodeUtf8 . encodeToText
55+#endif
5456
5557main :: IO ()
5658main = do
@@ -74,14 +76,18 @@ main = do
7476 , bgroup "encode" [
7577 bgroup "en" [
7678 bench "aeson-to-bytestring" $ nf A.encode (decodeA enA)
79+#if MIN_VERSION_bytestring(0,10,4)
7780 , bench "aeson-via-text-to-bytestring" $ nf encodeViaText (decodeA enA)
7881 , bench "aeson-to-text" $ nf encodeToText (decodeA enA)
82+#endif
7983 , bench "json" $ nf encodeJ (decodeJ enJ)
8084 ]
8185 , bgroup "jp" [
8286 bench "aeson-to-bytestring" $ nf A.encode (decodeA jpA)
87+#if MIN_VERSION_bytestring(0,10,4)
8388 , bench "aeson-via-text-to-bytestring" $ nf encodeViaText (decodeA jpA)
8489 , bench "aeson-to-text" $ nf encodeToText (decodeA jpA)
90+#endif
8591 , bench "json" $ nf encodeJ (decodeJ jpJ)
8692 ]
8793 ]