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 n = Mirage_crypto_rng.generate n
+ 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