typo
This commit is contained in:
parent
82085eaaf9
commit
c1e9fb7b8e
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user