1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/LocalChat.hs b/Presence/LocalChat.hs
index 39195fc9..eab54a03 100644
--- a/Presence/LocalChat.hs
+++ b/Presence/LocalChat.hs
@@ -47,10 +47,10 @@ chatevents rsvar = do
             ps <- roomPending r
             trace ("roomPending " ++ show ps) $ return ()
             case Map.toList ps of
-                (k,t):_ -> do
+                (k,t):ts -> do
                     roomCommit r k t
                     return $ do
-                        dput XJabber $ "fuck " ++ show (k,t)
+                        dput XJabber $ "committed " ++ show (length ts,k,t)
                 _ -> retry
         return $ foldl1 (>>) ios