Added warning on sIsConnected for case the socket was made into a

Handle.

1 files changed, 2 insertions, 1 deletions

diff --git a/Presence/SocketLike.hs b/Presence/SocketLike.hs
index 30a8fe07..cf52aca8 100644
--- a/Presence/SocketLike.hs
+++ b/Presence/SocketLike.hs
@@ -41,7 +41,8 @@ instance SocketLike NS.Socket where
     getPeerName   = NS.getPeerName
     getPeerCred   = NS.getPeerCred
     socketPort    = NS.socketPort
-    sIsConnected  = NS.sIsConnected
+    sIsConnected  = NS.sIsConnected -- warning: this is always False if the socket
+                                    --          was converted to a Handle
     sIsBound      = NS.sIsBound
     sIsListening  = NS.sIsListening
     sIsReadable   = NS.sIsReadable