summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/KRPC/Protocol.hs4
1 files changed, 3 insertions, 1 deletions
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
157 {-# INLINE fromBEncode #-} 157 {-# INLINE fromBEncode #-}
158 fromBEncode bv @ (BDict d) 158 fromBEncode bv @ (BDict d)
159 | BE.lookup "y" d == Just (BString "q") = (`fromDict` bv) $ do 159 | BE.lookup "y" d == Just (BString "q") = (`fromDict` bv) $ do
160 KQuery <$>! "q" <*>! "a" 160 a <- field (req "a")
161 q <- field (req "q")
162 return $! KQuery q a
161 163
162 fromBEncode _ = decodingError "KQuery" 164 fromBEncode _ = decodingError "KQuery"
163 165