diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 05:05:58 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 05:05:58 +0400 |
| commit | e38b79963948dc4c3d06d88202108c52bb77315a (patch) | |
| tree | fff0e11a590137a0fc4f6eb4799e481ba924eb1f | |
| parent | e14f03dcee1476496056ffbfe5fc5be75f2de567 (diff) | |
minor changes
| -rw-r--r-- | src/Data/BEncode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 87deffa..ca47b4a 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
| @@ -656,7 +656,7 @@ req !key = Get (StateT search) | |||
| 656 | search Nil = Left msg | 656 | search Nil = Left msg |
| 657 | search (Cons k v xs) = | 657 | search (Cons k v xs) = |
| 658 | case compare k key of | 658 | case compare k key of |
| 659 | EQ -> Right (v, xs) | 659 | EQ -> pure (v, xs) |
| 660 | LT -> search xs | 660 | LT -> search xs |
| 661 | GT -> Left msg | 661 | GT -> Left msg |
| 662 | 662 | ||