Call notification callback

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