From 7406d7e6d3e42c96a67fb233e7dc1847b9c64418 Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Wed, 1 Jun 2011 19:03:50 -0700 Subject: [PATCH] Arrow.hs: fix loopl/loopr transposition --- GHC/HetMet/Arrow.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/HetMet/Arrow.hs b/GHC/HetMet/Arrow.hs index cb20a6a..f40ed5b 100644 --- a/GHC/HetMet/Arrow.hs +++ b/GHC/HetMet/Arrow.hs @@ -48,8 +48,8 @@ instance Arrow a => GArrowReify a (,) () x y x y where ga_reify = arr instance ArrowLoop a => GArrowLoop a (,) () where - ga_loopl = loop - ga_loopr f = loop (ga_swap >>> f >>> ga_swap) + ga_loopr = loop + ga_loopl f = loop (ga_swap >>> f >>> ga_swap) instance ArrowApply a => GArrowApply a (,) () a where ga_applyl = ga_swap >>> app -- 1.7.10.4