Merge multiple data responses into a single stream

Changelog: Fix sending multiple data responses in a stream

1 files changed, 3 insertions, 3 deletions

diff --git a/main/Test.hs b/main/Test.hs
index 6b6d1d4..97eaee7 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -501,11 +501,11 @@ cmdPeerList = do
 
 cmdTestMessageSend :: Command
 cmdTestMessageSend = do
-    [spidx, tref] <- asks tiParams
+    spidx : trefs <- asks tiParams
     st <- asks tiStorage
-    Just ref <- liftIO $ readRef st (encodeUtf8 tref)
+    Just refs <- liftIO $ fmap sequence $ mapM (readRef st . encodeUtf8) trefs
     peer <- getPeer spidx
-    sendToPeer peer $ TestMessage $ wrappedLoad ref
+    sendManyToPeer peer $ map (TestMessage . wrappedLoad) refs
     cmdOut "test-message-send done"
 
 cmdSharedStateGet :: Command