fix: drop tls/ssl support

If you need TLS you can terminate it outside of the runtime. This will
help us drop a bunch of dependencies too.

Also get rid of Cstruct.

.gitignore

@@ -10,3 +10,5 @@ _opam
 .direnv
 result
 .envrc
+dune.lock
+dev-tools.locks

dune-project

@@ -35,9 +35,7 @@
   (randomconv (= "0.2.0"))
   (rio (>= "0.0.1"))
   (telemetry (>= "0.0.1"))
-  (tls (= "0.17.5"))
   (uri (>= "4.4.0"))
-  (x509 (and :with-test (>= "0.16.5")))
   dune)
  (tags
   (multicore erlang actor "message-passing" processes)))

riot.opam

@@ -24,9 +24,7 @@ depends: [
   "randomconv" {= "0.2.0"}
   "rio" {>= "0.0.1"}
   "telemetry" {>= "0.0.1"}
-  "tls" {= "0.17.5"}
   "uri" {>= "4.4.0"}
-  "x509" {with-test & >= "0.16.5"}
   "dune" {>= "3.11"}
 ]
 build: [

riot/lib/crypto.ml

@@ -1,19 +1,16 @@
 let () = Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna)
 
 module Random = struct
-  let cstruct n = Mirage_crypto_rng.generate n
-  let cstruct_to_string n = Mirage_crypto_rng.generate n |> Cstruct.to_string
-  let int8 () = Randomconv.int8 cstruct_to_string
-  let int16 () = Randomconv.int16 cstruct_to_string
-  let int32 () = Randomconv.int32 cstruct_to_string
-  let int64 () = Randomconv.int64 cstruct_to_string
+  let string = Mirage_crypto_rng.generate
+  let int8 () = Randomconv.int8 string
+  let int16 () = Randomconv.int16 string
+  let int32 () = Randomconv.int32 string
+  let int64 () = Randomconv.int64 string
   let char () = Char.chr (int8 ())
-  let int ?max () = Randomconv.int ?bound:max cstruct_to_string
-  let float ?max () = Randomconv.float ?bound:max cstruct_to_string
-  let bytes n = cstruct n |> Cstruct.to_bytes
-  let bigarray n = cstruct n |> Cstruct.to_bigarray
-  let string n = cstruct n |> Cstruct.to_string
+  let int ?max () = Randomconv.int ?bound:max string
+  let float ?max () = Randomconv.float ?bound:max string
+  let bytes n = string n |> Bytes.unsafe_of_string
   let bytestring n = string n |> Bytestring.of_string
-  let alphanum () = Char.chr (48 + Randomconv.int ~bound:74 cstruct_to_string)
+  let alphanum () = Char.chr (48 + Randomconv.int ~bound:74 string)
   let seq n gen = List.init n (fun _ -> gen ()) |> List.to_seq |> String.of_seq
 end

riot/lib/dune

@@ -5,7 +5,6 @@
   global
   logger
   riot_runtime
-  tls
   bytestring
   telemetry
   randomconv

riot/lib/lib.ml

@@ -15,7 +15,6 @@ module Process = Process
 module Queue = Queue
 module Ref = Ref
 module Runtime = Runtime_lib
-module SSL = Ssl
 module Store = Key_value_store
 module Stream = Stream
 module Supervisor = Supervisor