summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r--src/Network/BitTorrent/Address.hs3
-rw-r--r--src/Network/BitTorrent/Exchange/Download.hs1
-rw-r--r--src/Network/BitTorrent/Exchange/Session.hs3
-rw-r--r--src/Network/BitTorrent/Tracker/Message.hs1
4 files changed, 7 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs
index 9f9340d1..8dbe1583 100644
--- a/src/Network/BitTorrent/Address.hs
+++ b/src/Network/BitTorrent/Address.hs
@@ -9,6 +9,7 @@
9-- 9--
10-- Peer and Node addresses. 10-- Peer and Node addresses.
11-- 11--
12{-# LANGUAGE CPP #-}
12{-# LANGUAGE FlexibleInstances #-} 13{-# LANGUAGE FlexibleInstances #-}
13{-# LANGUAGE RecordWildCards #-} 14{-# LANGUAGE RecordWildCards #-}
14{-# LANGUAGE StandaloneDeriving #-} 15{-# LANGUAGE StandaloneDeriving #-}
@@ -111,7 +112,9 @@ import Network.HTTP.Types.QueryLike
111import Network.Socket 112import Network.Socket
112import Text.PrettyPrint as PP hiding ((<>)) 113import Text.PrettyPrint as PP hiding ((<>))
113import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) 114import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
115#if !MIN_VERSION_time(1,5,0)
114import System.Locale (defaultTimeLocale) 116import System.Locale (defaultTimeLocale)
117#endif
115import System.Entropy 118import System.Entropy
116 119
117-- import Paths_bittorrent (version) 120-- import Paths_bittorrent (version)
diff --git a/src/Network/BitTorrent/Exchange/Download.hs b/src/Network/BitTorrent/Exchange/Download.hs
index 9a6b5f91..aa754407 100644
--- a/src/Network/BitTorrent/Exchange/Download.hs
+++ b/src/Network/BitTorrent/Exchange/Download.hs
@@ -7,6 +7,7 @@
7-- 7--
8-- 8--
9-- 9--
10{-# LANGUAGE FlexibleContexts #-}
10{-# LANGUAGE FlexibleInstances #-} 11{-# LANGUAGE FlexibleInstances #-}
11{-# LANGUAGE MultiParamTypeClasses #-} 12{-# LANGUAGE MultiParamTypeClasses #-}
12{-# LANGUAGE FunctionalDependencies #-} 13{-# LANGUAGE FunctionalDependencies #-}
diff --git a/src/Network/BitTorrent/Exchange/Session.hs b/src/Network/BitTorrent/Exchange/Session.hs
index ca849c23..00886ccf 100644
--- a/src/Network/BitTorrent/Exchange/Session.hs
+++ b/src/Network/BitTorrent/Exchange/Session.hs
@@ -37,7 +37,8 @@ import Control.Monad.Logger
37import Control.Monad.Reader 37import Control.Monad.Reader
38import Data.ByteString as BS 38import Data.ByteString as BS
39import Data.ByteString.Lazy as BL 39import Data.ByteString.Lazy as BL
40import Data.Conduit as C 40import Data.Conduit as C (Sink, awaitForever, (=$=), ($=))
41import qualified Data.Conduit as C
41import Data.Conduit.List as C 42import Data.Conduit.List as C
42import Data.Map as M 43import Data.Map as M
43import Data.Monoid 44import Data.Monoid
diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs
index e4a41045..ddd86665 100644
--- a/src/Network/BitTorrent/Tracker/Message.hs
+++ b/src/Network/BitTorrent/Tracker/Message.hs
@@ -19,6 +19,7 @@
19-- scrape query — which queries the state of a given torrent (or 19-- scrape query — which queries the state of a given torrent (or
20-- a list of torrents) that the tracker is managing. 20-- a list of torrents) that the tracker is managing.
21-- 21--
22{-# LANGUAGE FlexibleContexts #-}
22{-# LANGUAGE FlexibleInstances #-} 23{-# LANGUAGE FlexibleInstances #-}
23{-# LANGUAGE GeneralizedNewtypeDeriving #-} 24{-# LANGUAGE GeneralizedNewtypeDeriving #-}
24{-# LANGUAGE TemplateHaskell #-} 25{-# LANGUAGE TemplateHaskell #-}