minor cleanup: remove some commented-out code

Ignore-this: b85f525f9eaba4e475e157a541c45070 darcs-hash:20120420205823-76d51-62f8eb59cb07d75ca4f5be1a787be93746075c85
2012-04-20 13:58:23 -07:00 · 2012-04-20 13:58:23 -07:00 · ffb37b3e2c
commit ffb37b3e2c
parent a95a1e298b
1 changed files with 0 additions and 13 deletions
--- a/Data/Encoding/ByteSource.hs
+++ b/Data/Encoding/ByteSource.hs
@ -178,16 +178,3 @@ instance ByteSource (ReaderT Handle IO) where
      res <- act
      liftIO $ hSetPosn pos
      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)-}