@@ -93,7 +93,10 @@ chunkedSource ipair = do
9393
9494 go src NeedLen = go' src id
9595 go src NeedLenNewline = go' src (CB.take 2 >>)
96− go src (HaveLen 0) = liftIO $ I.writeIORef ipair (src, HaveLen 0)
96+ go src (HaveLen 0) = do
97+ -- Drop the final CRLF
98+ (src', ()) <- lift $ src $$++ CB.drop 2
99+ liftIO $ I.writeIORef ipair (src', HaveLen 0)
97100 go src (HaveLen len) = do
98101 (src', mbs) <- lift $ src $$++ CL.head
99102 case mbs of