From 77b35435d6f10d46c1be1810dcc3b485574cd637 Mon Sep 17 00:00:00 2001 From: Ayman Nadeem Date: Fri, 11 Jan 2019 17:19:02 -0500 Subject: [PATCH] correct parameter booboo --- 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 6dc9b2a52..9f327df0e 100644 --- a/src/Control/Abstract/Value.hs +++ b/src/Control/Abstract/Value.hs @@ -451,7 +451,7 @@ runArray = raiseHandler $ runArrayC . interpret data Hash value (m :: * -> *) k = Hash [(value, value)] (value -> k) - | KvPair value (value -> value -> k) + | KvPair value value (value -> k) deriving (Functor) instance HFunctor (Hash value) where