diff options
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/Address.hs | 3 | ||||
-rw-r--r-- | src/Network/BitTorrent/Exchange/Download.hs | 1 | ||||
-rw-r--r-- | src/Network/BitTorrent/Exchange/Session.hs | 3 | ||||
-rw-r--r-- | src/Network/BitTorrent/Tracker/Message.hs | 1 |
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 | |||
111 | import Network.Socket | 112 | import Network.Socket |
112 | import Text.PrettyPrint as PP hiding ((<>)) | 113 | import Text.PrettyPrint as PP hiding ((<>)) |
113 | import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) | 114 | import Text.PrettyPrint.HughesPJClass hiding ((<>),($$)) |
115 | #if !MIN_VERSION_time(1,5,0) | ||
114 | import System.Locale (defaultTimeLocale) | 116 | import System.Locale (defaultTimeLocale) |
117 | #endif | ||
115 | import System.Entropy | 118 | import 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 | |||
37 | import Control.Monad.Reader | 37 | import Control.Monad.Reader |
38 | import Data.ByteString as BS | 38 | import Data.ByteString as BS |
39 | import Data.ByteString.Lazy as BL | 39 | import Data.ByteString.Lazy as BL |
40 | import Data.Conduit as C | 40 | import Data.Conduit as C (Sink, awaitForever, (=$=), ($=)) |
41 | import qualified Data.Conduit as C | ||
41 | import Data.Conduit.List as C | 42 | import Data.Conduit.List as C |
42 | import Data.Map as M | 43 | import Data.Map as M |
43 | import Data.Monoid | 44 | import 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 #-} |