Rename tls-miou tls-miou-unix

Author: dinosaure

miou/dune

@@ -1,6 +1,4 @@
 (library
- (name tls_miou)
- (public_name tls-miou)
- (libraries miou.unix tls)
- (instrumentation
-  (backend bisect_ppx)))
+ (name tls_miou_unix)
+ (public_name tls-miou-unix)
+ (libraries miou.unix tls))

miou/tests/dune

@@ -7,6 +7,6 @@
    ptime
    ptime.clock.os
    crowbar
-   tls-miou)
+   tls-miou-unix)
  (instrumentation
   (backend bisect_ppx)))

miou/tests/fuzz.ml

@@ -131,38 +131,38 @@ let run ~role:_ actions tls =
         Miou.yield ();
         go buf tls actions
     | Send str :: actions ->
-        Tls_miou.write tls str;
+        Tls_miou_unix.write tls str;
         go buf tls actions
     | Close :: actions ->
-        Tls_miou.close tls;
+        Tls_miou_unix.close tls;
         go buf tls actions
     | Shutdown cmd :: actions ->
-        Tls_miou.shutdown tls (cmd :> [ `read | `write | `read_write ]);
+        Tls_miou_unix.shutdown tls (cmd :> [ `read | `write | `read_write ]);
         go buf tls actions
     | Recv len :: actions ->
         let tmp = Bytes.make len '\000' in
-        Tls_miou.really_read tls tmp;
+        Tls_miou_unix.really_read tls tmp;
         Buffer.add_subbytes buf tmp 0 len;
         go buf tls actions
   in
   let buf = Buffer.create 0x100 in
   try go buf tls actions with
-  | End_of_file | Tls_miou.Closed_by_peer | Tls_miou.Tls_alert _
-  | Tls_miou.Tls_failure _ ->
-      inhibit (fun () -> Miou_unix.close (Tls_miou.file_descr tls));
+  | End_of_file | Tls_miou_unix.Closed_by_peer | Tls_miou_unix.Tls_alert _
+  | Tls_miou_unix.Tls_failure _ ->
+      inhibit (fun () -> Miou_unix.close (Tls_miou_unix.file_descr tls));
       Buffer.contents buf
   | exn ->
-      inhibit (fun () -> Miou_unix.close (Tls_miou.file_descr tls));
+      inhibit (fun () -> Miou_unix.close (Tls_miou_unix.file_descr tls));
       raise exn
 
 let run_client ~to_client:actions cfg addr =
   let domain = Unix.domain_of_sockaddr addr in
   let socket = Unix.socket ~cloexec:true domain Unix.SOCK_STREAM 0 in
   Unix.connect socket addr;
   let fd = Miou_unix.of_file_descr ~non_blocking:true socket in
-  let tls = Tls_miou.client_of_fd cfg fd in
+  let tls = Tls_miou_unix.client_of_fd cfg fd in
   let finally () =
-    inhibit (fun () -> Miou_unix.close (Tls_miou.file_descr tls))
+    inhibit (fun () -> Miou_unix.close (Tls_miou_unix.file_descr tls))
   in
   Fun.protect ~finally @@ fun () -> run ~role:"client" actions tls
 
@@ -201,7 +201,7 @@ let run_server ~to_server:actions ~stop fd cfg =
     | Ok (fd, _) ->
         ignore
           ( Miou.call_cc ~orphans @@ fun () ->
-            match Tls_miou.server_of_fd cfg fd with
+            match Tls_miou_unix.server_of_fd cfg fd with
             | tls -> run ~role:"server" actions tls
             | exception _ ->
                 Miou_unix.close fd;

miou/tls_miou.ml renamed to miou/tls_miou_unix.ml

@@ -26,9 +26,9 @@ depends: [
   "ptime" {with-test}
 ]
 tags: [ "org:mirage"]
-synopsis: "Transport Layer Security purely in OCaml, Miou layer"
+synopsis: "Transport Layer Security purely in OCaml, Miou+Unix layer"
 description: """
-Tls-miou provides an effectful Tls_miou module to be used with Miou.
+Tls-miou provides an effectful Tls_miou module to be used with Miou and Unix.
 """
 
 pin-depends: [