1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/MUC.hs b/Presence/MUC.hs
index 76c53391..639e834b 100644
--- a/Presence/MUC.hs
+++ b/Presence/MUC.hs
@@ -42,8 +42,8 @@ mucReservedNick muc rkey = atomically $ do
         Nothing -> return Nothing
         Just r  -> return $ Just $ \jid -> atomically $ roomReservedNick r jid
 
-mucJoinRoom :: MUC -> Text{-JID-} -> Text{-nick-} -> Text{-room-} -> ClientAddress -> IO (JoinedRoom ClientAddress)
-mucJoinRoom muc jid nick rkey k = atomically $ do
+mucJoinRoom :: MUC -> Text{-JID-} -> Text{-nick-} -> Text{-room-} -> ClientAddress -> STM (JoinedRoom ClientAddress)
+mucJoinRoom muc jid nick rkey k = do
     mr <- Map.lookup rkey <$> readTVar (mucRooms muc)
     case mr of
         Nothing -> do