From c61a365244a1b2b816c17968cfea6fa400222add Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Thu, 20 Oct 2016 13:51:46 +0700
Subject: [PATCH] TestBrokerServer: fix irrefutable pattern error

---
 test/TestBrokerServer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/TestBrokerServer.hs b/test/TestBrokerServer.hs
index 7cc23a8..c431a4a 100644
--- a/test/TestBrokerServer.hs
+++ b/test/TestBrokerServer.hs
@@ -227,8 +227,8 @@ testBrokerServerGetNotifications = testCaseSteps "Broker Server: notifications r
         case resp of
           Just (ResponseNotifications ns) -> do
             length ns @=? 3
-            let (TradeNotification newtrade) = head ns
             let (OrderNotification oid newstate) = ns !! 1
+            let (TradeNotification newtrade) = ns !! 2
             orderId @=? oid
             Executed @=? newstate
             trade @=? newtrade