Fix warnings

2 files changed, 3 insertions, 6 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
index 0259b3c..f5bc98e 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -6,14 +6,12 @@
 {-# LANGUAGE BangPatterns       #-}
 module Main (main) where
 
-import Control.Applicative
 import Control.DeepSeq
 import Data.Attoparsec.ByteString as Atto
 import           Data.ByteString as BS
 import qualified Data.ByteString.Lazy as BL
 import Data.List as L
 import Data.Maybe
-import Data.Monoid
 import Data.Typeable
 import System.Environment
 
@@ -26,7 +24,6 @@ import             Data.AttoBencode.Parser as B
 import "bencoding" Data.BEncode     as C
 import "bencoding" Data.BEncode.Internal as C
 import "bencoding" Data.BEncode.Types    as C
-import Debug.Trace
 
 
 instance NFData A.BEncode where
@@ -183,13 +180,13 @@ main = do
        , let Right !be = C.parse torrentFile
              id'   x  = let t = either error id (fromBEncode x)
                         in toBEncode (t :: Torrent)
-             !test = let Right t = C.decode torrentFile
+             !_ = let Right t = C.decode torrentFile
                      in if C.decode (BL.toStrict (C.encode t))
                            /= Right (t :: Torrent)
                         then error "invalid instance: BEncode Torrent"
                         else True
 
-             replFn n f = go n
+             replFn m f = go m
                where go 0 = id
                      go n = f . go (pred n)
 
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 1284a83..189aedc 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -87,6 +87,7 @@ module Data.BEncode
        , Get
        , fromDict
 
+       , next
        , req
        , opt
        , field
@@ -104,7 +105,6 @@ import Control.Monad.State
 import Control.Monad.Error
 import Data.Int
 import Data.List as L
-import Data.Maybe         (mapMaybe)
 import Data.Monoid
 import Data.Word          (Word8, Word16, Word32, Word64, Word)
 import           Data.ByteString (ByteString)