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:
3a7e8de
)
add ga_inl, ga_inr
author
Adam Megacz
<megacz@cs.berkeley.edu>
Fri, 8 Apr 2011 04:51:57 +0000
(
04:51
+0000)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Tue, 31 May 2011 21:59:09 +0000
(14:59 -0700)
GHC/HetMet/GArrow.hs
patch
|
blob
|
history
diff --git
a/GHC/HetMet/GArrow.hs
b/GHC/HetMet/GArrow.hs
index
26bec09
..
c53e2f8
100644
(file)
--- a/
GHC/HetMet/GArrow.hs
+++ b/
GHC/HetMet/GArrow.hs
@@
-21,7
+21,7
@@
module GHC.HetMet.GArrow (
GArrowConstant(..),
GArrowLiteral(..), -- should be implemented, but never invoked, by user code
- GArrowSum(..),
+ GArrowSum(..), ga_inl, ga_inr,
GArrowProd(..),
GArrowReify(..),
@@
-85,10
+85,9
@@
class (GArrow g (**) u,
GArrowSum g (**) u (<+>) v where
ga_merge :: g (x<+>x) x
ga_never :: g v x
-
-
-
+ga_inl = ga_uncancelr >>> ga_second ga_never
+ga_inr = ga_uncancell >>> ga_first ga_never
------------------------------------------------------------------------
-- Loop