From e38b79963948dc4c3d06d88202108c52bb77315a Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Tue, 1 Oct 2013 05:05:58 +0400
Subject: minor changes

---
 src/Data/BEncode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
     search  Nil          = Left msg
     search (Cons k v xs) =
       case compare k key of
-        EQ -> Right (v, xs)
+        EQ -> pure (v, xs)
         LT -> search xs
         GT -> Left msg
 
-- 
cgit v1.2.3