Removed useless comment

darcs-hash:20090225040233-a4fee-16dcf1f9cbc42c7e379f8ba83cb5f16ff1832d2c
This commit is contained in:
Henning Guenther 2009-02-24 20:02:33 -08:00
parent 7b2af16c03
commit d12097c7a1

View File

@ -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)