From 84d02547b30ab8156514b17b140b4b90315c5b13 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Wed, 22 Dec 2021 21:40:20 +0700 Subject: [PATCH] Bugfix: PaperBroker: send market order Submitted notification --- src/Broker/PaperBroker.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Broker/PaperBroker.hs b/src/Broker/PaperBroker.hs index b721917..171d582 100644 --- a/src/Broker/PaperBroker.hs +++ b/src/Broker/PaperBroker.hs @@ -212,7 +212,9 @@ pbSubmitOrder state order = do case tickMb of Nothing -> rejectOrder state order Just tick -> if orderQuantity order /= 0 - then executeAtTick state order tick + then do + maybeCall notificationCallback state $ BackendOrderNotification (orderId order) Submitted + executeAtTick state order tick else rejectOrder state order submitLimitOrder price state order = if orderQuantity order == 0 then rejectOrder state order