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)