From 24e346b0ce82b96d5add6f5af4a43caad3bebde0 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 4 Apr 2014 21:25:16 -0400
Subject: type signatures

---
 Presence/ClientState.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Presence/ClientState.hs')

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
-- 
cgit v1.2.3