diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-10-17 21:35:43 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 19:44:36 -0500 |
| commit | b27c28f1a5c41c25b5693195ec8c15510c144413 (patch) | |
| tree | ccf517364bbb1b7e2998bc90cc4857a33b82a034 /dht | |
| parent | 03c5291a9bc3bf76f63d6929abdf4eaf25dbd18e (diff) | |
Repaired build for older Network package.
Diffstat (limited to 'dht')
| -rw-r--r-- | dht/src/Network/SocketLike.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dht/src/Network/SocketLike.hs b/dht/src/Network/SocketLike.hs index 2c97ddd4..37891cfd 100644 --- a/dht/src/Network/SocketLike.hs +++ b/dht/src/Network/SocketLike.hs | |||
| @@ -68,11 +68,11 @@ instance SocketLike NS.Socket where | |||
| 68 | isValidSocket s = (s,) . (/= (-1)) <$> NS.fdSocket s | 68 | isValidSocket s = (s,) . (/= (-1)) <$> NS.fdSocket s |
| 69 | #else | 69 | #else |
| 70 | #if MIN_VERSION_network(2,4,0) | 70 | #if MIN_VERSION_network(2,4,0) |
| 71 | isValidSocket s = (s,) . NS.isConnected s -- warning: this is always False if the socket | 71 | isValidSocket s = (s,) <$> NS.isConnected s -- warning: this is always False if the socket |
| 72 | -- was converted to a Handle | 72 | -- was converted to a Handle |
| 73 | #else | 73 | #else |
| 74 | isValidSocket = (s,) . NS.sIsConnected s -- warning: this is always False if the socket | 74 | isValidSocket s = (s,) <$> NS.sIsConnected s -- warning: this is always False if the socket |
| 75 | -- was converted to a Handle | 75 | -- was converted to a Handle |
| 76 | #endif | 76 | #endif |
| 77 | #endif | 77 | #endif |
| 78 | #endif | 78 | #endif |