From c0fc719747feac4cdd3908052ab3af69ba559f4d Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 2 Jun 2022 22:44:24 +0700 Subject: [PATCH] Call notification callback --- src/Broker/QuikBroker.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Broker/QuikBroker.hs b/src/Broker/QuikBroker.hs index 3bcf79d..b81ac51 100644 --- a/src/Broker/QuikBroker.hs +++ b/src/Broker/QuikBroker.hs @@ -110,7 +110,9 @@ qbSubmitOrder state order = do log Debug "Quik" $ "Sending transaction string: " <> T.pack transStr case rc of Left errmsg -> log Warning "Quik" $ "Unable to send transaction: " <> errmsg - Right _ -> log Debug "Quik" $ "Order submitted: " <> (T.pack . show) order + Right _ -> do + log Debug "Quik" $ "Order submitted: " <> (T.pack . show) order + maybeCall notificationCallback state (BackendOrderNotification (orderId order) Submitted) Nothing -> log Warning "Quik" $ "Unable to compose transaction string: " <> (T.pack . show) order _ -> log Warning "Quik" $ TL.toStrict $ [t|Unable to obtain data: %?/%?|] tickerInfoMb liquidTickMb where