From ffb37b3e2c2b09bbdff15e7a5f1804c1f0bc9dfb Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Fri, 20 Apr 2012 13:58:23 -0700
Subject: [PATCH] minor cleanup: remove some commented-out code

Ignore-this: b85f525f9eaba4e475e157a541c45070

darcs-hash:20120420205823-76d51-62f8eb59cb07d75ca4f5be1a787be93746075c85
---
 Data/Encoding/ByteSource.hs | 13 -------------
 1 file changed, 13 deletions(-)

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