Removed useless comment
darcs-hash:20090225040233-a4fee-16dcf1f9cbc42c7e379f8ba83cb5f16ff1832d2c
This commit is contained in:
parent
7b2af16c03
commit
d12097c7a1
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user