projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b7c693b
)
Arrow.hs: fix loopl/loopr transposition
author
Adam Megacz
<megacz@cs.berkeley.edu>
Thu, 2 Jun 2011 02:03:50 +0000
(19:03 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Thu, 2 Jun 2011 02:03:50 +0000
(19:03 -0700)
GHC/HetMet/Arrow.hs
patch
|
blob
|
history
diff --git
a/GHC/HetMet/Arrow.hs
b/GHC/HetMet/Arrow.hs
index
cb20a6a
..
f40ed5b
100644
(file)
--- 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_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
instance ArrowApply a => GArrowApply a (,) () a where
ga_applyl = ga_swap >>> app