[MLton-commit] r6654

[Vesa Karvonen]

Fixed copy-paste bug.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/with/types.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/generic/unstable/with/types.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/with/types.sml	2008-06-11 16:11:48 UTC (rev 6653)
+++ mltonlib/trunk/com/ssh/generic/unstable/with/types.sml	2008-06-11 23:43:48 UTC (rev 6654)
@@ -13,7 +13,7 @@
       open BinFn
       fun t (a, b) : ('a, 'b) t Rep.t = Sq.t a --> b
    end
-   structure BinOp = struct open UnOp val t = Generic.binOp end
+   structure BinOp = struct open BinOp val t = Generic.binOp end
    structure Bool = struct open Bool val t = Generic.bool end
    structure CPS = struct
       open CPS