[MLton-commit] r6913

[Vesa Karvonen]

Fixed incorrectly swapped iso.

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

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-10-05 20:13:23 UTC (rev 6912)
+++ mltonlib/trunk/com/ssh/generic/unstable/with/types.sml	2008-10-08 17:18:35 UTC (rev 6913)
@@ -83,6 +83,6 @@
    structure Word8 = struct open Word8 val t = Generic.word8 end
    structure Word8Vector = struct
       open Word8Vector
-      val t = iso (Vector.t Word8.t) (Iso.swap isoPoly)
+      val t = iso (Vector.t Word8.t) isoPoly
    end
 end