From ee677c16e0e097c4ac2785de031f439e38dbf778 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 17 Oct 2013 10:02:01 +0400
Subject: Fix bug after migration

---
 src/Network/KRPC/Protocol.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Network/KRPC/Protocol.hs b/src/Network/KRPC/Protocol.hs
index 709429e3..7442d990 100644
--- a/src/Network/KRPC/Protocol.hs
+++ b/src/Network/KRPC/Protocol.hs
@@ -157,7 +157,9 @@ instance BEncode KQuery where
   {-# INLINE fromBEncode #-}
   fromBEncode bv @ (BDict d)
     | BE.lookup "y" d == Just (BString "q") = (`fromDict` bv) $ do
-      KQuery <$>! "q" <*>! "a"
+      a <- field (req "a")
+      q <- field (req "q")
+      return $! KQuery q a
 
   fromBEncode _ = decodingError "KQuery"
 
-- 
cgit v1.2.3