From e7cf4c0f1dff0eaa24aa5f8dfc2762192899f672 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Mon, 30 Sep 2013 05:33:12 +0400 Subject: Fix warnings --- bench/Main.hs | 7 ++----- src/Data/BEncode.hs | 2 +- 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) -- cgit v1.2.3