From a92463592edd666e40e8a2e25131b33488a6dadb Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Mon, 12 Dec 2016 17:17:07 +0700 Subject: [PATCH] Debug++ --- src/ATrade/Broker/Client.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs index fea2e91..af14b3d 100644 --- a/src/ATrade/Broker/Client.hs +++ b/src/ATrade/Broker/Client.hs @@ -46,7 +46,7 @@ brokerClientThread ctx ep cmd resp comp killMv = finally brokerClientThread' cle cleanup = putMVar comp () brokerClientThread' = whileM_ (isNothing <$> tryReadMVar killMv) $ handle (\e -> do - warningM "Broker.Client" $ "Broker client: exception: " ++ show (e :: SomeException) + warningM "Broker.Client" $ "Broker client: exception: " ++ (show (e :: SomeException)) ++ "; isZMQ: " ++ show (isZMQError e) unless (isZMQError e) $ throwIO e) $ withSocket ctx Req (\sock -> do connect sock $ T.unpack ep whileM_ (isNothing <$> tryReadMVar killMv) $ do