reynir/cert-service
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Host is hashbang.sh
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse source 
At least when sending email.
This commit is contained in:
Reynir Björnsson 2020-12-11 16:45:28 +01:00
parent 80299f086b
commit 5b8ed2626a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/cert_service_server.ml
View file

@ -38,7 +38,7 @@ let main () =
Mirage_crypto_rng_lwt.initialize (); Mirage_crypto_rng_lwt.initialize ();
let cacert = Rresult.R.get_ok (load_cacert (Fpath.v cacert_path)) in let cacert = Rresult.R.get_ok (load_cacert (Fpath.v cacert_path)) in
let cakey = Rresult.R.get_ok (load_cakey (Fpath.v cakey_path)) in let cakey = Rresult.R.get_ok (load_cakey (Fpath.v cakey_path)) in
let t = { Cert_service.host = "de1.hashbang.sh"; cacert; cakey } in let t = { Cert_service.host = "hashbang.sh"; cacert; cakey } in
let server_fd = Lwt_unix.socket Unix.PF_UNIX Unix.SOCK_STREAM 0 in let server_fd = Lwt_unix.socket Unix.PF_UNIX Unix.SOCK_STREAM 0 in
let old_umask = Unix.umask 0o011 in let old_umask = Unix.umask 0o011 in
let () = try Unix.unlink sock_path let () = try Unix.unlink sock_path