1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 4ee55821..1d586900 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -143,7 +143,7 @@ data InOrOut = In | Out
 data ConnectionEvent b
     = Got b
     -- ^ Arrival of data from a socket
-    | Connection (IO Bool) (IO (Maybe ByteString)) (ByteString -> IO Bool)
+    | Connection (STM Bool) (IO (Maybe ByteString)) (ByteString -> IO Bool)
     -- ^ A new connection was established
     | HalfConnection InOrOut
     -- ^ Half of a half-duplex connection is avaliable.
@@ -314,7 +314,7 @@ killListener (thread,sock) = do sClose sock
 
 conevent con = Connection pingflag read write
  where
-    pingflag = atomically $ swapTVar (pingFlag (connPingTimer con)) False
+    pingflag = swapTVar (pingFlag (connPingTimer con)) False
     read =  connRead con
     write = connWrite con