diff --git a/Data/Encoding/ByteSource.hs b/Data/Encoding/ByteSource.hs index ac97b11..2b1bdb5 100644 --- a/Data/Encoding/ByteSource.hs +++ b/Data/Encoding/ByteSource.hs @@ -131,7 +131,7 @@ instance ByteSource (StateT [Char] (Either DecodingException)) where fetchWord8 = do chs <- get case chs of - [] -> throwException UnexpectedEnd --handleDecodingError UnexpectedEnd + [] -> throwException UnexpectedEnd c:cs -> do put cs return (fromIntegral $ ord c)