More methods in SocketLike

1 files changed, 15 insertions, 0 deletions

diff --git a/Presence/SocketLike.hs b/Presence/SocketLike.hs
index d2ff84f6..30a8fe07 100644
--- a/Presence/SocketLike.hs
+++ b/Presence/SocketLike.hs
@@ -5,6 +5,11 @@ module SocketLike
     , getPeerName
     , getPeerCred
     , socketPort
+    , sIsConnected
+    , sIsBound
+    , sIsListening
+    , sIsReadable
+    , sIsWritable
     , RestrictedSocket
     , restrictSocket
     , PortNumber
@@ -25,12 +30,22 @@ class SocketLike sock where
     getPeerName   :: sock -> IO SockAddr
     getPeerCred   :: sock -> IO (CUInt, CUInt, CUInt)
     socketPort    :: sock -> IO PortNumber
+    sIsConnected  :: sock -> IO Bool
+    sIsBound      :: sock -> IO Bool
+    sIsListening  :: sock -> IO Bool
+    sIsReadable   :: sock -> IO Bool
+    sIsWritable   :: sock -> IO Bool
 
 instance SocketLike NS.Socket where
     getSocketName = NS.getSocketName
     getPeerName   = NS.getPeerName
     getPeerCred   = NS.getPeerCred
     socketPort    = NS.socketPort
+    sIsConnected  = NS.sIsConnected
+    sIsBound      = NS.sIsBound
+    sIsListening  = NS.sIsListening
+    sIsReadable   = NS.sIsReadable
+    sIsWritable   = NS.sIsWritable
 
 newtype RestrictedSocket = Restricted NS.Socket deriving SocketLike