From 1c5d86f9ab468292f9a52b079e25578ac83d07e2 Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Fri, 25 Mar 2011 16:44:05 -0700 Subject: [PATCH] fix incorrect type on GArrowCurry --- GHC/HetMet/GArrow.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/HetMet/GArrow.hs b/GHC/HetMet/GArrow.hs index d55a807..88f84fb 100644 --- a/GHC/HetMet/GArrow.hs +++ b/GHC/HetMet/GArrow.hs @@ -144,5 +144,5 @@ class GArrow g (**) u => GArrowApply g (**) u (~>) where ga_applyr :: g ( (x~>y)**x) y class GArrow g (**) u => GArrowCurry g (**) u (~>) where - ga_curryl :: g x (y**(x~>y) ) - ga_curryr :: g x ( (x~>y)**y) + ga_curryl :: g (x**y) z -> g x (y~>z) + ga_curryr :: g (x**y) z -> g y (x~>z) -- 1.7.10.4