From 8e5207eea827e0e879c21f6de044de27cd1d1244 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Wed, 8 Jan 2025 13:29:44 +0700
Subject: [PATCH] GotifyTradeSink: workaround for th-printf bug

---
 src/ATrade/Broker/TradeSinks/GotifyTradeSink.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ATrade/Broker/TradeSinks/GotifyTradeSink.hs b/src/ATrade/Broker/TradeSinks/GotifyTradeSink.hs
index 7a8c150..aa67871 100644
--- a/src/ATrade/Broker/TradeSinks/GotifyTradeSink.hs
+++ b/src/ATrade/Broker/TradeSinks/GotifyTradeSink.hs
@@ -64,7 +64,7 @@ sinkThread server token killMv chan logger = whileM_ (not <$> wasKilled) $ do
     wasKilled = isJust <$> tryReadMVar killMv
     encodeTrade :: Trade -> B.ByteString
     encodeTrade = encodeUtf8 . TL.toStrict . formatTrade
-    formatTrade trade = [t|New trade: %? %d %Q for %f (%Q/%Q)|]
+    formatTrade trade = [t|New trade: %? %d %Q for %? (%Q/%Q)|]
       (tradeOperation trade)
       (tradeQuantity trade)
       (tradeSecurity trade)