From 5db5b7c5d753db519c1630ada18dea4642cfb309 Mon Sep 17 00:00:00 2001
From: Patrick Thomson <patrickt@github.com>
Date: Fri, 23 Mar 2018 15:59:12 -0400
Subject: [PATCH] return -> pure

---
 src/Control/Abstract/Value.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Control/Abstract/Value.hs b/src/Control/Abstract/Value.hs
index 55465500f..35311d66e 100644
--- a/src/Control/Abstract/Value.hs
+++ b/src/Control/Abstract/Value.hs
@@ -173,7 +173,7 @@ instance ( Monad m
   kvPair k = pure . injValue . Value.KVPair k
 
   asPair k
-    | Just (Value.KVPair k v) <- prjValue k = return (k, v)
+    | Just (Value.KVPair k v) <- prjValue k = pure (k, v)
     | otherwise = fail ("expected key-value pair, got " <> show k)
 
   hash = pure . injValue . Value.Hash . fmap (injValue . uncurry Value.KVPair)