adapt to mirage-crypto 1.1 (#138)

* fix deprecation warning

* adapt to mirage-crypto 1.1

Mirage_crypto_rng.generate now generates astring, and sexplib is not
pulled in anymore as a dependency

Author: copy

async/websocket_async.ml

@@ -83,7 +83,7 @@ let client ?(name = "websocket.client") ?(extra_headers = Header.init ())
   in
   let run () =
     drain_handshake net_to_ws ws_to_net >>= fun () ->
-    Option.iter initialized ~f:(fun ivar -> Ivar.fill ivar ());
+    Option.iter initialized ~f:(fun ivar -> Ivar.fill_exn ivar ());
     let read_frame =
       make_read_frame ~mode:(Client random_string) net_to_ws ws_to_net
     in

core/websocket.ml

@@ -21,7 +21,7 @@ let b64_encoded_sha1sum s = Base64.encode_exn (Sha1.sha_1 s)
 let websocket_uuid = "258EAFA5-E914-47DA-95CA-C5AB0DC85B11"
 
 module Rng = struct
-  let init () len = Mirage_crypto_rng.generate len |> Cstruct.to_string
+  let init () len = Mirage_crypto_rng.generate len
 end
 
 module Frame = struct

lwt/dune

@@ -17,4 +17,4 @@
  (public_name wscat-lwt)
  (package websocket-lwt-unix)
  (modules wscat)
- (libraries conduit-lwt-unix websocket-lwt-unix))
+ (libraries conduit-lwt-unix websocket-lwt-unix sexplib))

test/dune

@@ -6,4 +6,4 @@
 (executable
  (name upgrade_connection)
  (modules upgrade_connection)
- (libraries logs.fmt logs.lwt websocket_cohttp_lwt))
+ (libraries logs.fmt logs.lwt websocket_cohttp_lwt sexplib))