summaryrefslogtreecommitdiff
path: root/main/Test.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-06-30 23:18:56 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2024-07-02 22:36:12 +0200
commit7729f1be60bf2c4d38758971bd95d4c6445fde1e (patch)
treed16753ed86ec36e16651dea3a7ff478d924d830e /main/Test.hs
parentc6ae47e2d1440fbc38d61e38c2d2a1d5843475d1 (diff)
Chatroom subscriptions
Diffstat (limited to 'main/Test.hs')
-rw-r--r--main/Test.hs3
1 files changed, 2 insertions, 1 deletions
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 "<unnamed>" T.unpack $ roomName =<< cmsgRoom msg ]
, [ "from", maybe "<unnamed>" T.unpack $ idName $ cmsgFrom msg ]
, maybe [] (("text":) . (:[]) . T.unpack) $ cmsgText msg
]