haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed useless comment

Browse Source 
darcs-hash:20090225040233-a4fee-16dcf1f9cbc42c7e379f8ba83cb5f16ff1832d2c
This commit is contained in:
Henning Guenther 2009-02-24 20:02:33 -08:00
parent 7b2af16c03
commit d12097c7a1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Encoding/ByteSource.hs
View File

@ -131,7 +131,7 @@ instance ByteSource (StateT [Char] (Either DecodingException)) where
fetchWord8 = do fetchWord8 = do
chs <- get chs <- get
case chs of case chs of
[] -> throwException UnexpectedEnd --handleDecodingError UnexpectedEnd [] -> throwException UnexpectedEnd
c:cs -> do c:cs -> do
put cs put cs
return (fromIntegral $ ord c) return (fromIntegral $ ord c)