Debug++

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