diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-05-12 05:08:29 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-05-12 05:08:29 +0400 |
| commit | ae555a1e49b7cbe606aac4f24a37200fd78ce90e (patch) | |
| tree | 1dc0e9bd9042670a4a4dc77b08583770bd572896 /src/Remote/KRPC/Protocol.hs | |
| parent | 250db0db86afe9462de1624a11e6b124c191d467 (diff) | |
~ Fix wall suggestions.
Diffstat (limited to 'src/Remote/KRPC/Protocol.hs')
| -rw-r--r-- | src/Remote/KRPC/Protocol.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Remote/KRPC/Protocol.hs b/src/Remote/KRPC/Protocol.hs index 918bc735..c922c1d6 100644 --- a/src/Remote/KRPC/Protocol.hs +++ b/src/Remote/KRPC/Protocol.hs | |||
| @@ -97,8 +97,8 @@ instance BEncodable KError where | |||
| 97 | ] | 97 | ] |
| 98 | 98 | ||
| 99 | fromBEncode (BDict d) | 99 | fromBEncode (BDict d) |
| 100 | | M.lookup "y" d == Just (BString "e") = | 100 | | M.lookup "y" d == Just (BString "e") |
| 101 | uncurry mkKError <$> d >-- "e" | 101 | = uncurry mkKError <$> d >-- "e" |
| 102 | 102 | ||
| 103 | fromBEncode _ = decodingError "KError" | 103 | fromBEncode _ = decodingError "KError" |
| 104 | 104 | ||
| @@ -278,4 +278,4 @@ instance (BEncodable a, BEncodable b) => BEncodable (a, b) where | |||
| 278 | Right [a, b] -> (,) <$> fromBEncode a <*> fromBEncode b | 278 | Right [a, b] -> (,) <$> fromBEncode a <*> fromBEncode b |
| 279 | Right _ -> decodingError "Unable to decode a pair." | 279 | Right _ -> decodingError "Unable to decode a pair." |
| 280 | Left e -> Left e | 280 | Left e -> Left e |
| 281 | {-# INLINE fromBEncode #-} \ No newline at end of file | 281 | {-# INLINE fromBEncode #-} |