GotifyTradeSink: workaround for th-printf bug

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)