git.iko.soy/typeable/aeson
on master help sign in
Some very selective linting
88ef704Adam Bergmark
Data/Aeson/Encoding/Builder.hs+1−1
compare with master
unifiedsplit
@@ -306,7 +306,7 @@ encodeUtf8BuilderEscaped be =
306 where
306 where
307 go !i !op
307 go !i !op
308 | i < iendTmp = case A.unsafeIndex arr i of
308 | i < iendTmp = case A.unsafeIndex arr i of
309− w | w <= 0x7F -> do
309+ w | w <= 0x7F ->
310 BP.runB be (fromIntegral w) op >>= go (i + 1)
310 BP.runB be (fromIntegral w) op >>= go (i + 1)
311 | w <= 0x7FF -> do
311 | w <= 0x7FF -> do
312 poke8 0 $ (w `shiftR` 6) + 0xC0
312 poke8 0 $ (w `shiftR` 6) + 0xC0
Data/Aeson/Types/ToJSON.hs+1−1
@@ -2806,7 +2806,7 @@ lazyToStrictByteString = packChunks
2806
2806
2807-- | Pack the chunks of a lazy bytestring into a single strict bytestring.
2807-- | Pack the chunks of a lazy bytestring into a single strict bytestring.
2808packChunks :: L.ByteString -> S.ByteString
2808packChunks :: L.ByteString -> S.ByteString
2809−packChunks lbs = do
2809+packChunks lbs =
2810 S.unsafeCreate (fromIntegral $ L.length lbs) (copyChunks lbs)
2810 S.unsafeCreate (fromIntegral $ L.length lbs) (copyChunks lbs)
2811 where
2811 where
2812 copyChunks !L.Empty !_pf = return ()
2812 copyChunks !L.Empty !_pf = return ()