diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-17 10:02:01 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-17 10:02:01 +0400 |
| commit | ee677c16e0e097c4ac2785de031f439e38dbf778 (patch) | |
| tree | f34fe3b7238976b783ec0814cc4a430988675662 /src/Network | |
| parent | 5ad4603614704bcca92a89ecf655d6a551f4f8ac (diff) | |
Fix bug after migration
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/KRPC/Protocol.hs | 4 |
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 | ||