type signatures

1 files changed, 2 insertions, 0 deletions

diff --git a/Presence/ClientState.hs b/Presence/ClientState.hs
index 44d81b4f..30a53131 100644
--- a/Presence/ClientState.hs
+++ b/Presence/ClientState.hs
@@ -22,11 +22,13 @@ cf_interested :: Int8
 cf_interested = 0x2
 
 -- | True if the client has sent an initial presence
+clientIsAvailable :: ClientState -> STM Bool
 clientIsAvailable c  = do
     flgs <- readTVar (clientFlags c)
     return $ flgs .&. cf_available /= 0
 
 -- | True if the client has requested a roster
+clientIsInterested :: ClientState -> STM Bool
 clientIsInterested c = do
     flgs <- readTVar (clientFlags c)
     return $ flgs .&. cf_interested /= 0