From: Adam Megacz <megacz@cs.berkeley.edu>
Date: Thu, 2 Jun 2011 02:03:50 +0000 (-0700)
Subject: Arrow.hs: fix loopl/loopr transposition
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=7406d7e6d3e42c96a67fb233e7dc1847b9c64418

Arrow.hs: fix loopl/loopr transposition
---

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