diff --git a/Data/Encoding/ByteSource.hs b/Data/Encoding/ByteSource.hs
index 1e638c6..1fb6997 100644
--- 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)-}
\ No newline at end of file