require tls 1.0.2 and use the Tls_lwt.read with offset

albatross.opam

@@ -21,7 +21,7 @@ depends: [
   "fmt" {>= "0.8.7"}
   "x509" {>= "1.0.0"}
   "tls" {>= "1.0.0"}
-  "tls-lwt" {>= "1.0.0"}
+  "tls-lwt" {>= "1.0.2"}
   "mirage-crypto" {>= "1.0.0"}
   "mirage-crypto-rng" {>= "1.0.0"}
   "asn1-combinators" {>= "0.3.0"}

tls/vmm_tls_lwt.ml

@@ -8,20 +8,12 @@ let read_tls t =
     if l = 0 then
       Lwt.return (Ok ())
     else
-      let buf' =
-        if off = 0 then buf else Bytes.create l
-      in
-      (* TODO Tls_lwt.Unix.read should receive an (optional) "off" parameter. *)
-      Tls_lwt.Unix.read t buf' >>= function
+      Tls_lwt.Unix.read t ~off buf >>= function
       | 0 ->
         Logs.debug (fun m -> m "TLS: end of file") ;
         Lwt.return (Error `Eof)
-      | x when x == l ->
-        if off = 0 then () else Bytes.blit buf' 0 buf off x;
-        Lwt.return (Ok ())
-      | x when x < l ->
-        if off = 0 then () else Bytes.blit buf' 0 buf off x;
-        r_n buf (off + x) tot
+      | x when x == l -> Lwt.return (Ok ())
+      | x when x < l -> r_n buf (off + x) tot
       | _ ->
         Logs.err (fun m -> m "TLS: read too much, shouldn't happen") ;
         Lwt.return (Error `Toomuch)