@@ -79,6 +79,9 @@ data ChunkState = NeedLen
7979 | NeedLenNewline
8080 | HaveLen Word
8181
82+bsCRLF :: L.ByteString
83+bsCRLF = pack "\r\n"
84+
8285chunkedSource :: MonadIO m
8386 => I.IORef (ResumableSource m ByteString, ChunkState)
8487 -> Source m ByteString
@@ -99,7 +102,7 @@ chunkedSource ipair = do
99102 -- Drop the final CRLF
100103 (src', ()) <- lift $ src $$++ do
101104 crlf <- CB.take 2
102− unless (crlf == pack "\r\n") $ leftover $ S.concat $ L.toChunks crlf
105+ unless (crlf == bsCRLF) $ leftover $ S.concat $ L.toChunks crlf
103106 liftIO $ I.writeIORef ipair (src', HaveLen 0)
104107 go src (HaveLen len) = do
105108 (src', mbs) <- lift $ src $$++ CL.head