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

minor cleanup: remove some commented-out code

Browse Source 
Ignore-this: b85f525f9eaba4e475e157a541c45070

darcs-hash:20120420205823-76d51-62f8eb59cb07d75ca4f5be1a787be93746075c85
This commit is contained in:
Daniel Wagner 2012-04-20 13:58:23 -07:00
parent a95a1e298b
commit ffb37b3e2c
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Data/Encoding/ByteSource.hs
View File

@ -178,16 +178,3 @@ instance ByteSource (ReaderT Handle IO) where
res <- act res <- act
liftIO $ hSetPosn pos liftIO $ hSetPosn pos
return res return res
{-
instance Throws DecodingException (State st) => Throws DecodingException (State (Integer,st)) where
throwException = throw
instance ByteSource (State st) => ByteSource (State (Integer,st)) where
sourceEmpty = sourceEmpty
fetchWord8 = do
<- fetchWord8
fetchAhead = fetchAhead
sourcePos = do
(p,chs) <- get
return (Just p)-}