From bf3dc8b3b21d267758e429d01c73048dc8be99b5 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Thu, 20 Feb 2014 07:19:08 +0400 Subject: Fix some warnings --- src/Network/BitTorrent/Exchange/Session.hs | 9 +-------- src/Network/BitTorrent/Exchange/Wire.hs | 5 +---- 2 files changed, 2 insertions(+), 12 deletions(-) (limited to 'src') diff --git a/src/Network/BitTorrent/Exchange/Session.hs b/src/Network/BitTorrent/Exchange/Session.hs index b6ee800a..88554807 100644 --- a/src/Network/BitTorrent/Exchange/Session.hs +++ b/src/Network/BitTorrent/Exchange/Session.hs @@ -16,19 +16,13 @@ import Control.Exception hiding (Handler) import Control.Lens import Control.Monad.Logger import Control.Monad.Reader -import Control.Monad.State import Data.ByteString as BS import Data.ByteString.Lazy as BL import Data.Conduit import Data.Conduit.List as CL (iterM) -import Data.Function -import Data.IORef -import Data.List as L import Data.Maybe import Data.Map as M import Data.Monoid -import Data.Ord -import Data.Set as S import Data.Text as T import Data.Typeable import Text.PrettyPrint hiding ((<>)) @@ -40,9 +34,8 @@ import Data.Torrent (InfoDict (..)) import Data.Torrent.Bitfield as BF import Data.Torrent.InfoHash import Data.Torrent.Piece -import qualified Data.Torrent.Piece as Torrent (Piece (Piece)) +import qualified Data.Torrent.Piece as Torrent (Piece ()) import Network.BitTorrent.Core -import Network.BitTorrent.Exchange.Assembler import Network.BitTorrent.Exchange.Block as Block import Network.BitTorrent.Exchange.Message as Message import Network.BitTorrent.Exchange.Session.Metadata as Metadata diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs index 411cd598..27915724 100644 --- a/src/Network/BitTorrent/Exchange/Wire.hs +++ b/src/Network/BitTorrent/Exchange/Wire.hs @@ -98,15 +98,12 @@ import Network.Socket hiding (Connected) import Network.Socket.ByteString as BS import Text.PrettyPrint as PP hiding (($$), (<>)) import Text.PrettyPrint.Class -import Text.Show.Functions +import Text.Show.Functions () import System.Log.FastLogger (ToLogStr(..)) import System.Timeout -import Data.BEncode as BE -import Data.Torrent import Data.Torrent.Bitfield as BF import Data.Torrent.InfoHash -import Data.Torrent.Piece import Network.BitTorrent.Core import Network.BitTorrent.Exchange.Message as Msg import Network.BitTorrent.Exchange.Wire.Status -- cgit v1.2.3