This commit is contained in:
Jonathan Lamothe 2022-04-24 22:13:07 -04:00
parent 82085eaaf9
commit c1e9fb7b8e

View File

@ -217,7 +217,7 @@ decodeUTF8 bs = case decodeUtf8' bs of
Left _ -> Nothing Left _ -> Nothing
Right txt -> Just txt Right txt -> Just txt
-- | convert a stream to ByteStrings to a string of bytes -- | convert a stream to ByteStrings to a stream of bytes
toBytes :: Monad m => ConduitT BS.ByteString Word8 m () toBytes :: Monad m => ConduitT BS.ByteString Word8 m ()
toBytes = await >>= \case toBytes = await >>= \case
Just bs -> do Just bs -> do