[MLton-commit] r6912

[Vesa Karvonen]

Added Word8Vector.

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

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-04 14:48:07 UTC (rev 6911)
+++ mltonlib/trunk/com/ssh/generic/unstable/with/types.sml	2008-10-05 20:13:23 UTC (rev 6912)
@@ -81,4 +81,8 @@
    structure Vector = struct open Vector val t = Generic.vector end
    structure Word32 = struct open Word32 val t = Generic.word32 end
    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)
+   end
 end