From 7856ef7baad22e75ad895fd7b5b769555c5d5f0b Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 20 Apr 2020 22:02:58 +0700
Subject: [PATCH] QHP: fix response structure

---
 src/ATrade/MDS/HistoryServer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ATrade/MDS/HistoryServer.hs b/src/ATrade/MDS/HistoryServer.hs
index 4dbc6ab..66c1c90 100644
--- a/src/ATrade/MDS/HistoryServer.hs
+++ b/src/ATrade/MDS/HistoryServer.hs
@@ -58,7 +58,7 @@ serveQHP db sock = forever $ do
         debugM "QHP" $ "Incoming command: " ++ show cmd
         qdata <- getData db (rqTicker rq) (TimeInterval (rqStartTime rq) (rqEndTime rq)) (Timeframe (periodSeconds $ rqPeriod rq))
         let bytes = serializeBars $ V.concat $ fmap snd qdata
-        sendMulti sock $ peerId :| B.empty : [BL.toStrict bytes]
+        sendMulti sock $ peerId :| [B.empty, "OK", BL.toStrict bytes]
     serializeBars :: V.Vector Bar -> BL.ByteString
     serializeBars bars = runPut $ V.forM_ bars serializeBar'
     serializeBar' bar = do