diff options
Diffstat (limited to 'dht/src/Network')
| -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 |