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)
    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

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