[MLton-commit] r7209

[Wesley Terpstra]

If we are going to provide toVector, fromVector ends up being useful too.


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

U   mlton/trunk/basis-library/mlton/socket.sig
U   mlton/trunk/basis-library/mlton/socket.sml

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

Modified: mlton/trunk/basis-library/mlton/socket.sig
===================================================================
--- mlton/trunk/basis-library/mlton/socket.sig	2009-07-04 21:12:30 UTC (rev 7208)
+++ mlton/trunk/basis-library/mlton/socket.sig	2009-07-07 01:13:14 UTC (rev 7209)
@@ -13,6 +13,7 @@
          sig
             type t = NetHostDB.in_addr
             val toVector : t -> Word8Vector.vector
+            val fromVector : Word8Vector.vector -> t
          end
 
       structure Ctl:

Modified: mlton/trunk/basis-library/mlton/socket.sml
===================================================================
--- mlton/trunk/basis-library/mlton/socket.sml	2009-07-04 21:12:30 UTC (rev 7208)
+++ mlton/trunk/basis-library/mlton/socket.sml	2009-07-07 01:13:14 UTC (rev 7209)
@@ -14,6 +14,7 @@
    struct
       type t = NetHostDB.in_addr
       fun toVector x = x
+      fun fromVector x = x
    end
 
 structure Ctl = Socket.CtlExtra