diff options
author | Andrew Cady <d@jerkface.net> | 2019-07-13 16:25:13 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-07-13 16:25:13 -0400 |
commit | 8820af82d2fccadb6de7e2623c87e48fb11378c5 (patch) | |
tree | 51d25e17c2b9262abf15418007b8be5829a5facc /lib/Hosts.hs | |
parent | 803d8a03e5c787d1d57b327cbc30a5beb9f1ec7a (diff) |
remove more old cpp cruft
Diffstat (limited to 'lib/Hosts.hs')
-rw-r--r-- | lib/Hosts.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lib/Hosts.hs b/lib/Hosts.hs index 9d6ef92..f0610ad 100644 --- a/lib/Hosts.hs +++ b/lib/Hosts.hs | |||
@@ -1,9 +1,6 @@ | |||
1 | {-# LANGUAGE CPP #-} | 1 | {-# LANGUAGE CPP #-} |
2 | {-# LANGUAGE ScopedTypeVariables #-} | 2 | {-# LANGUAGE ScopedTypeVariables #-} |
3 | {-# LANGUAGE OverloadedStrings #-} | 3 | {-# LANGUAGE OverloadedStrings #-} |
4 | #if ! MIN_VERSION_network(2,4,0) | ||
5 | {-# LANGUAGE StandaloneDeriving #-} | ||
6 | #endif | ||
7 | module Hosts | 4 | module Hosts |
8 | ( Hosts | 5 | ( Hosts |
9 | , assignName | 6 | , assignName |
@@ -37,10 +34,6 @@ import Control.Monad (mplus) | |||
37 | import Network.Socket | 34 | import Network.Socket |
38 | import ControlMaybe ( handleIO_ ) | 35 | import ControlMaybe ( handleIO_ ) |
39 | 36 | ||
40 | #if ! MIN_VERSION_network(2,4,0) | ||
41 | deriving instance Ord SockAddr | ||
42 | #endif | ||
43 | |||
44 | inet_pton :: String -> Maybe SockAddr | 37 | inet_pton :: String -> Maybe SockAddr |
45 | inet_pton p = n | 38 | inet_pton p = n |
46 | where | 39 | where |