[MLton-commit] r6631

[Vesa Karvonen]

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