git.iko.soy/typeable/aeson
on master help sign in
Update benchmarks to reflect current reality
76f6827Bryan O'Sullivan
benchmarks/Typed/Generic.hs+2−2
compare with master
unifiedsplit
@@ -9,10 +9,10 @@ import Twitter.TH
9import Typed.Common
9import Typed.Common
10
10
11encodeDirect :: Result -> L.ByteString
11encodeDirect :: Result -> L.ByteString
12−encodeDirect = B.toLazyByteString . fromEncoding . toEncoding
12+encodeDirect = encode
13
13
14encodeViaValue :: Result -> L.ByteString
14encodeViaValue :: Result -> L.ByteString
15−encodeViaValue = encode
15+encodeViaValue = encode . toJSON
16
16
17benchmarks :: Benchmark
17benchmarks :: Benchmark
18benchmarks =
18benchmarks =
benchmarks/Typed/Manual.hs+2−2
@@ -9,10 +9,10 @@ import Twitter.Manual
9import Typed.Common
9import Typed.Common
10
10
11encodeDirect :: Result -> L.ByteString
11encodeDirect :: Result -> L.ByteString
12−encodeDirect = B.toLazyByteString . fromEncoding . toEncoding
12+encodeDirect = encode
13
13
14encodeViaValue :: Result -> L.ByteString
14encodeViaValue :: Result -> L.ByteString
15−encodeViaValue = encode
15+encodeViaValue = encode . toJSON
16
16
17benchmarks :: Benchmark
17benchmarks :: Benchmark
18benchmarks =
18benchmarks =
benchmarks/Typed/TH.hs+2−2
@@ -9,10 +9,10 @@ import Twitter.TH
9import Typed.Common
9import Typed.Common
10
10
11encodeDirect :: Result -> L.ByteString
11encodeDirect :: Result -> L.ByteString
12−encodeDirect = B.toLazyByteString . fromEncoding . toEncoding
12+encodeDirect = encode
13
13
14encodeViaValue :: Result -> L.ByteString
14encodeViaValue :: Result -> L.ByteString
15−encodeViaValue = encode
15+encodeViaValue = encode . toJSON
16
16
17benchmarks :: Benchmark
17benchmarks :: Benchmark
18benchmarks =
18benchmarks =