From 2f85e35d07b3becea1f4873fe666352a9bd4a56f Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Fri, 30 Sep 2016 10:25:10 +0700 Subject: [PATCH] Broker Client: fixed error handling --- src/ATrade/Broker/Client.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs index 9298fd6..0c465f0 100644 --- a/src/ATrade/Broker/Client.hs +++ b/src/ATrade/Broker/Client.hs @@ -80,8 +80,8 @@ bcSubmitOrder idCounter cmdVar respVar order = do resp <- takeMVar respVar case resp of (ResponseOrderSubmitted oid) -> return $ Right oid - _ -> return $ Left "Unknown error" (ResponseError msg) -> return $ Left msg + _ -> return $ Left "Unknown error" bcCancelOrder :: IORef RequestSqnum -> MVar BrokerServerRequest -> MVar BrokerServerResponse -> OrderId -> IO (Either T.Text ()) bcCancelOrder idCounter cmdVar respVar orderId = do @@ -90,8 +90,8 @@ bcCancelOrder idCounter cmdVar respVar orderId = do resp <- takeMVar respVar case resp of (ResponseOrderCancelled oid) -> return $ Right () - _ -> return $ Left "Unknown error" (ResponseError msg) -> return $ Left msg + _ -> return $ Left "Unknown error" bcGetNotifications :: IORef RequestSqnum -> MVar BrokerServerRequest -> MVar BrokerServerResponse -> IO (Either T.Text [Notification]) bcGetNotifications idCounter cmdVar respVar = do @@ -100,5 +100,5 @@ bcGetNotifications idCounter cmdVar respVar = do resp <- takeMVar respVar case resp of (ResponseNotifications ns) -> return $ Right ns - _ -> return $ Left "Unknown error" (ResponseError msg) -> return $ Left msg + _ -> return $ Left "Unknown error"