From 17fb2a0f1332c1db9748644b9abf84cdd79b7ed2 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Wed, 3 Jun 2020 10:31:55 -0400
Subject: Added some TLS utilities

---
 gemini/tlsUtils.mli | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 gemini/tlsUtils.mli

(limited to 'gemini/tlsUtils.mli')

diff --git a/gemini/tlsUtils.mli b/gemini/tlsUtils.mli
new file mode 100644
index 0000000..ba89de7
--- /dev/null
+++ b/gemini/tlsUtils.mli
@@ -0,0 +1,14 @@
+module type TLS_UTILS =
+sig
+  type authenticator = X509_lwt.authenticator Lwt.t
+
+  val null_auth : authenticator
+
+  val ca : Lwt_io.file_name -> authenticator
+
+  val self_sign : ?bits:int -> ?days:int
+    -> X509.Distinguished_name.t
+    -> (Tls.Config.certchain, string) result
+end
+
+module TlsUtils : TLS_UTILS
-- 
cgit v1.2.3