[MLton-commit] r6631
Vesa Karvonen
vesak at mlton.org
Fri May 30 06:14:01 PDT 2008
Use >< rather than >>&.
----------------------------------------------------------------------
U mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml
----------------------------------------------------------------------
Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml 2008-05-30 13:12:34 UTC (rev 6630)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml 2008-05-30 13:13:59 UTC (rev 6631)
@@ -78,7 +78,7 @@
val IN {gen = aG, cog = aC} = getP aP
val IN {gen = bG, cog = bC} = getP bP
in
- IN {gen = G.Monad.>>& (aG, bG), cog = fn a & b => aC a o bC b}
+ IN {gen = G.Monad.>< (aG, bG), cog = fn a & b => aC a o bC b}
end
val T = getT
fun R _ = getT
More information about the MLton-commit
mailing list