Some very selective linting
commit88ef704e2f6cdb4b9c60990637fb7890f286a2fd
authorAdam Bergmark <adam@bergmark.nl>
dateThu 22 Dec 2016, 19:12 (10 years ago)
parent60a67ee
Data/Aeson/Encoding/Builder.hs+1−1
@@ -306,7 +306,7 @@ encodeUtf8BuilderEscaped be =
306306 where
307307 go !i !op
308308 | i < iendTmp = case A.unsafeIndex arr i of
309− w | w <= 0x7F -> do
309+ w | w <= 0x7F ->
310310 BP.runB be (fromIntegral w) op >>= go (i + 1)
311311 | w <= 0x7FF -> do
312312 poke8 0 $ (w `shiftR` 6) + 0xC0
Data/Aeson/Types/ToJSON.hs+1−1
@@ -2806,7 +2806,7 @@ lazyToStrictByteString = packChunks
28062806
28072807-- | Pack the chunks of a lazy bytestring into a single strict bytestring.
28082808packChunks :: L.ByteString -> S.ByteString
2809−packChunks lbs = do
2809+packChunks lbs =
28102810 S.unsafeCreate (fromIntegral $ L.length lbs) (copyChunks lbs)
28112811 where
28122812 copyChunks !L.Empty !_pf = return ()