From cdea147b9e8a680e75ea6baeb5b3141cca1fb3ca Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Fri, 7 Oct 2016 08:14:20 +0700 Subject: [PATCH] Broker: send notifications in correct order --- src/ATrade/Broker/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Broker/Server.hs b/src/ATrade/Broker/Server.hs index 35cda5d..0c2f99e 100644 --- a/src/ATrade/Broker/Server.hs +++ b/src/ATrade/Broker/Server.hs @@ -158,7 +158,7 @@ brokerServerThread state = finally brokerServerThread' cleanup case maybeNs of Just ns -> do atomicMapIORef state (\s -> s { pendingNotifications = M.insert peerId [] (pendingNotifications s)}) - return $ ResponseNotifications ns + return $ ResponseNotifications . L.reverse $ ns Nothing -> return $ ResponseNotifications [] sendMessage sock peerId resp = sendMulti sock (peerId :| [B.empty, BL.toStrict . encode $ resp])