From 7729f1be60bf2c4d38758971bd95d4c6445fde1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 30 Jun 2024 23:18:56 +0200 Subject: Chatroom subscriptions --- main/Test.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'main') diff --git a/main/Test.hs b/main/Test.hs index d5737c2..711f9fa 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -726,10 +726,11 @@ cmdChatroomWatchLocal = do , [ "new" ], map (show . refDigest . storedRef) (roomStateData room) ] when (any (not . null . rsdMessages . fromStored) (roomStateData room)) $ do - forM_ (getMessagesSinceState room oldroom) $ \msg -> do + forM_ (reverse $ getMessagesSinceState room oldroom) $ \msg -> do outLine out $ unwords $ concat [ [ "chatroom-message-new" ] , [ show . refDigest . storedRef . head . filterAncestors . concatMap storedRoots . toComponents $ room ] + , [ "room", maybe "" T.unpack $ roomName =<< cmsgRoom msg ] , [ "from", maybe "" T.unpack $ idName $ cmsgFrom msg ] , maybe [] (("text":) . (:[]) . T.unpack) $ cmsgText msg ] -- cgit v1.2.3