From 410fce441524873dfc3b7bc6d88e8bf4b21c4bf0 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sun, 9 Dec 2018 13:44:37 +0700
Subject: [PATCH] Fix heartbeat handling

---
 src/Bot.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Bot.hs b/src/Bot.hs
index c4a2435..ec72204 100644
--- a/src/Bot.hs
+++ b/src/Bot.hs
@@ -59,13 +59,15 @@ startBot conf = do
           mTrade <- eitherDecode' . BL.fromStrict <$> receive sock
           send sock [] $ encodeUtf8 "{ \"response\" : \"ok\" }"
           case mTrade of
-            Right trade -> do
+            Right (trade@(TradeSinkTrade{..})) -> do
+
               debugM "ATradeBot.TradeSink" $ "Incoming trade: " ++ show trade
               forM_ (cTargetUsers conf) $ \username -> do
                 r <- sendMessage (message { messageTo = jidFromText username, messagePayload = toXml . messageForTrade $ trade }) sess
                 case r of
                   Left err -> warningM "ATradeBot" (show err)
                   _        -> return ()
+            Right _ -> return ()
             Left err -> warningM "ATradeBot.TradeSink" $ "Error: " ++ show err