diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Network/Address.hs | 4 | ||||
-rw-r--r-- | src/Network/BitTorrent/MainlineDHT.hs | 4 | ||||
-rw-r--r-- | src/Network/Kademlia.hs | 4 | ||||
-rw-r--r-- | src/Network/Kademlia/Bootstrap.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox/NodeId.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox/Onion/Handlers.hs | 4 | ||||
-rw-r--r-- | src/Network/Tox/Onion/Transport.hs | 5 | ||||
-rw-r--r-- | src/System/Global6.hs | 5 |
10 files changed, 42 insertions, 0 deletions
diff --git a/src/Network/Address.hs b/src/Network/Address.hs index 4f163b79..3766d614 100644 --- a/src/Network/Address.hs +++ b/src/Network/Address.hs | |||
@@ -103,7 +103,11 @@ import qualified Data.ByteString.Lazy.Builder as BS | |||
103 | import Data.Char | 103 | import Data.Char |
104 | import Data.Convertible | 104 | import Data.Convertible |
105 | import Data.Default | 105 | import Data.Default |
106 | #if MIN_VERSION_iproute(1,7,4) | ||
107 | import Data.IP hiding (fromSockAddr) | ||
108 | #else | ||
106 | import Data.IP | 109 | import Data.IP |
110 | #endif | ||
107 | import Data.List as L | 111 | import Data.List as L |
108 | import Data.List.Split as L | 112 | import Data.List.Split as L |
109 | import Data.Maybe (fromMaybe, catMaybes, mapMaybe) | 113 | import Data.Maybe (fromMaybe, catMaybes, mapMaybe) |
diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs index 991473a9..847d820b 100644 --- a/src/Network/BitTorrent/MainlineDHT.hs +++ b/src/Network/BitTorrent/MainlineDHT.hs | |||
@@ -40,7 +40,11 @@ import Data.Default | |||
40 | import Data.Digest.CRC32C | 40 | import Data.Digest.CRC32C |
41 | import Data.Function (fix) | 41 | import Data.Function (fix) |
42 | import Data.Hashable | 42 | import Data.Hashable |
43 | #if MIN_VERSION_iproute(1,7,4) | ||
44 | import Data.IP hiding (fromSockAddr) | ||
45 | #else | ||
43 | import Data.IP | 46 | import Data.IP |
47 | #endif | ||
44 | import Data.List | 48 | import Data.List |
45 | import Data.Maybe | 49 | import Data.Maybe |
46 | import Data.Monoid | 50 | import Data.Monoid |
diff --git a/src/Network/Kademlia.hs b/src/Network/Kademlia.hs index 0ab26e80..50c98967 100644 --- a/src/Network/Kademlia.hs +++ b/src/Network/Kademlia.hs | |||
@@ -22,7 +22,11 @@ import Control.Concurrent.STM | |||
22 | import Control.Monad | 22 | import Control.Monad |
23 | import Data.Bits | 23 | import Data.Bits |
24 | import Data.Hashable | 24 | import Data.Hashable |
25 | #if MIN_VERSION_iproute(1,7,4) | ||
26 | import Data.IP hiding (fromSockAddr) | ||
27 | #else | ||
25 | import Data.IP | 28 | import Data.IP |
29 | #endif | ||
26 | import Data.Monoid | 30 | import Data.Monoid |
27 | import Data.Serialize (Serialize) | 31 | import Data.Serialize (Serialize) |
28 | import Data.Time.Clock.POSIX (POSIXTime) | 32 | import Data.Time.Clock.POSIX (POSIXTime) |
diff --git a/src/Network/Kademlia/Bootstrap.hs b/src/Network/Kademlia/Bootstrap.hs index bc8188a7..d77f524c 100644 --- a/src/Network/Kademlia/Bootstrap.hs +++ b/src/Network/Kademlia/Bootstrap.hs | |||
@@ -29,7 +29,11 @@ import Control.Concurrent.STM | |||
29 | import Control.Monad | 29 | import Control.Monad |
30 | import Data.Bits | 30 | import Data.Bits |
31 | import Data.Hashable | 31 | import Data.Hashable |
32 | #if MIN_VERSION_iproute(1,7,4) | ||
33 | import Data.IP hiding (fromSockAddr) | ||
34 | #else | ||
32 | import Data.IP | 35 | import Data.IP |
36 | #endif | ||
33 | import Data.Monoid | 37 | import Data.Monoid |
34 | import Data.Serialize (Serialize) | 38 | import Data.Serialize (Serialize) |
35 | import Data.Time.Clock.POSIX (POSIXTime) | 39 | import Data.Time.Clock.POSIX (POSIXTime) |
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 89a8d99f..45f8e633 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -62,7 +62,11 @@ import Data.Conduit (Source,Sink,Flush(..)) | |||
62 | import Data.Data | 62 | import Data.Data |
63 | import Data.Functor.Contravariant | 63 | import Data.Functor.Contravariant |
64 | import Data.Hashable | 64 | import Data.Hashable |
65 | #if MIN_VERSION_iproute(1,7,4) | ||
66 | import Data.IP hiding (fromSockAddr) | ||
67 | #else | ||
65 | import Data.IP | 68 | import Data.IP |
69 | #endif | ||
66 | import Data.Maybe | 70 | import Data.Maybe |
67 | import qualified Data.MinMaxPSQ as MinMaxPSQ | 71 | import qualified Data.MinMaxPSQ as MinMaxPSQ |
68 | ;import Data.MinMaxPSQ (MinMaxPSQ') | 72 | ;import Data.MinMaxPSQ (MinMaxPSQ') |
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index 7e986fdd..43169fa0 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
@@ -32,7 +32,11 @@ import Network.Socket | |||
32 | import Data.Hashable | 32 | import Data.Hashable |
33 | import qualified Data.HashMap.Strict as HashMap | 33 | import qualified Data.HashMap.Strict as HashMap |
34 | ;import Data.HashMap.Strict (HashMap) | 34 | ;import Data.HashMap.Strict (HashMap) |
35 | #if MIN_VERSION_iproute(1,7,4) | ||
36 | import Data.IP hiding (fromSockAddr) | ||
37 | #else | ||
35 | import Data.IP | 38 | import Data.IP |
39 | #endif | ||
36 | import Data.Ord | 40 | import Data.Ord |
37 | import Data.Maybe | 41 | import Data.Maybe |
38 | import Data.Bits | 42 | import Data.Bits |
diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs index f3013142..5eb3742e 100644 --- a/src/Network/Tox/NodeId.hs +++ b/src/Network/Tox/NodeId.hs | |||
@@ -59,7 +59,11 @@ import qualified Data.ByteString.Char8 as C8 | |||
59 | import Data.Char | 59 | import Data.Char |
60 | import Data.Data | 60 | import Data.Data |
61 | import Data.Hashable | 61 | import Data.Hashable |
62 | #if MIN_VERSION_iproute(1,7,4) | ||
63 | import Data.IP hiding (fromSockAddr) | ||
64 | #else | ||
62 | import Data.IP | 65 | import Data.IP |
66 | #endif | ||
63 | import Data.List | 67 | import Data.List |
64 | import Data.Maybe | 68 | import Data.Maybe |
65 | import Data.Serialize as S | 69 | import Data.Serialize as S |
diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs index 263d60bd..f497a1bf 100644 --- a/src/Network/Tox/Onion/Handlers.hs +++ b/src/Network/Tox/Onion/Handlers.hs | |||
@@ -44,7 +44,11 @@ import GHC.Conc (labelThread) | |||
44 | import Control.Concurrent.STM | 44 | import Control.Concurrent.STM |
45 | import Data.Time.Clock.POSIX (POSIXTime, getPOSIXTime) | 45 | import Data.Time.Clock.POSIX (POSIXTime, getPOSIXTime) |
46 | import Network.Socket | 46 | import Network.Socket |
47 | #if MIN_VERSION_iproute(1,7,4) | ||
48 | import Data.IP hiding (fromSockAddr) | ||
49 | #else | ||
47 | import Data.IP | 50 | import Data.IP |
51 | #endif | ||
48 | import Data.Maybe | 52 | import Data.Maybe |
49 | import Data.Bits | 53 | import Data.Bits |
50 | import Data.Ord | 54 | import Data.Ord |
diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs index 864e831f..0da48f76 100644 --- a/src/Network/Tox/Onion/Transport.hs +++ b/src/Network/Tox/Onion/Transport.hs | |||
@@ -1,3 +1,4 @@ | |||
1 | {-# LANGUAGE CPP #-} | ||
1 | {-# LANGUAGE DataKinds #-} | 2 | {-# LANGUAGE DataKinds #-} |
2 | {-# LANGUAGE FlexibleContexts #-} | 3 | {-# LANGUAGE FlexibleContexts #-} |
3 | {-# LANGUAGE FlexibleInstances #-} | 4 | {-# LANGUAGE FlexibleInstances #-} |
@@ -65,7 +66,11 @@ import Data.Coerce | |||
65 | import Data.Function | 66 | import Data.Function |
66 | import Data.Functor.Contravariant | 67 | import Data.Functor.Contravariant |
67 | import Data.Functor.Identity | 68 | import Data.Functor.Identity |
69 | #if MIN_VERSION_iproute(1,7,4) | ||
70 | import Data.IP hiding (fromSockAddr) | ||
71 | #else | ||
68 | import Data.IP | 72 | import Data.IP |
73 | #endif | ||
69 | import Data.Maybe | 74 | import Data.Maybe |
70 | import Data.Monoid | 75 | import Data.Monoid |
71 | import Data.Serialize as S | 76 | import Data.Serialize as S |
diff --git a/src/System/Global6.hs b/src/System/Global6.hs index cc8ed020..f9073482 100644 --- a/src/System/Global6.hs +++ b/src/System/Global6.hs | |||
@@ -1,8 +1,13 @@ | |||
1 | {-# LANGUAGE CPP #-} | ||
1 | module System.Global6 where | 2 | module System.Global6 where |
2 | 3 | ||
3 | import Control.Monad | 4 | import Control.Monad |
4 | import Control.Applicative | 5 | import Control.Applicative |
6 | #if MIN_VERSION_iproute(1,7,4) | ||
7 | import Data.IP hiding (fromSockAddr) | ||
8 | #else | ||
5 | import Data.IP | 9 | import Data.IP |
10 | #endif | ||
6 | import Data.List | 11 | import Data.List |
7 | import Data.Maybe | 12 | import Data.Maybe |
8 | import Network.Socket | 13 | import Network.Socket |