asakul
/
libatrade
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Debug++

master
Denis Tereshkin 9 years ago
parent
90cd793215
commit
a92463592e
1 changed files with 1 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      src/ATrade/Broker/Client.hs

2
src/ATrade/Broker/Client.hs
Unescape View File

@ -46,7 +46,7 @@ brokerClientThread ctx ep cmd resp comp killMv = finally brokerClientThread' cle
cleanup = putMVar comp () cleanup = putMVar comp ()
brokerClientThread' = whileM_ (isNothing <$> tryReadMVar killMv) $ handle brokerClientThread' = whileM_ (isNothing <$> tryReadMVar killMv) $ handle
(\e -> do (\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 unless (isZMQError e) $ throwIO e) $ withSocket ctx Req (\sock -> do
connect sock $ T.unpack ep connect sock $ T.unpack ep
whileM_ (isNothing <$> tryReadMVar killMv) $ do whileM_ (isNothing <$> tryReadMVar killMv) $ do

Write Preview
Loading…
Cancel
Save