diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-20 07:19:08 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-20 07:19:08 +0400 |
commit | bf3dc8b3b21d267758e429d01c73048dc8be99b5 (patch) | |
tree | c479ccc33d86421a218a52f3ed766f53d4360823 /src/Network/BitTorrent/Exchange/Session.hs | |
parent | 2a1917938bcbb23e9aea7cbbcfde486c3ae6b29c (diff) |
Fix some warnings
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Session.hs')
-rw-r--r-- | src/Network/BitTorrent/Exchange/Session.hs | 9 |
1 files changed, 1 insertions, 8 deletions
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) | |||
16 | import Control.Lens | 16 | import Control.Lens |
17 | import Control.Monad.Logger | 17 | import Control.Monad.Logger |
18 | import Control.Monad.Reader | 18 | import Control.Monad.Reader |
19 | import Control.Monad.State | ||
20 | import Data.ByteString as BS | 19 | import Data.ByteString as BS |
21 | import Data.ByteString.Lazy as BL | 20 | import Data.ByteString.Lazy as BL |
22 | import Data.Conduit | 21 | import Data.Conduit |
23 | import Data.Conduit.List as CL (iterM) | 22 | import Data.Conduit.List as CL (iterM) |
24 | import Data.Function | ||
25 | import Data.IORef | ||
26 | import Data.List as L | ||
27 | import Data.Maybe | 23 | import Data.Maybe |
28 | import Data.Map as M | 24 | import Data.Map as M |
29 | import Data.Monoid | 25 | import Data.Monoid |
30 | import Data.Ord | ||
31 | import Data.Set as S | ||
32 | import Data.Text as T | 26 | import Data.Text as T |
33 | import Data.Typeable | 27 | import Data.Typeable |
34 | import Text.PrettyPrint hiding ((<>)) | 28 | import Text.PrettyPrint hiding ((<>)) |
@@ -40,9 +34,8 @@ import Data.Torrent (InfoDict (..)) | |||
40 | import Data.Torrent.Bitfield as BF | 34 | import Data.Torrent.Bitfield as BF |
41 | import Data.Torrent.InfoHash | 35 | import Data.Torrent.InfoHash |
42 | import Data.Torrent.Piece | 36 | import Data.Torrent.Piece |
43 | import qualified Data.Torrent.Piece as Torrent (Piece (Piece)) | 37 | import qualified Data.Torrent.Piece as Torrent (Piece ()) |
44 | import Network.BitTorrent.Core | 38 | import Network.BitTorrent.Core |
45 | import Network.BitTorrent.Exchange.Assembler | ||
46 | import Network.BitTorrent.Exchange.Block as Block | 39 | import Network.BitTorrent.Exchange.Block as Block |
47 | import Network.BitTorrent.Exchange.Message as Message | 40 | import Network.BitTorrent.Exchange.Message as Message |
48 | import Network.BitTorrent.Exchange.Session.Metadata as Metadata | 41 | import Network.BitTorrent.Exchange.Session.Metadata as Metadata |