Skip to content
Browse files

[enhance] libsecurity: Simplified some code.

  • Loading branch information...
1 parent b71cd99 commit 8f77cb9963f6a04c284d30f2ceb9557acf0e9f9b Grégoire Duchêne committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 libsecurity/sslAS.ml
View
6 libsecurity/sslAS.ml
@@ -125,12 +125,12 @@ let make_ssl_verify_params ?(client_ca_file="") ?(accept_fun=fun _cert -> false)
info "make_ssl_verify_params" ?param:(Some p) "";
p
-let make_ssl_certificate ?(cafile="") ?(capath="") certfile privkey password =
+let make_ssl_certificate ?cafile ?capath certfile privkey password =
let c = { cert_file = certfile
; cert_privkey = privkey
; cert_password = password
- ; cert_cafile = if cafile = "" then None else Some cafile
- ; cert_capath = if capath = "" then None else Some capath } in
+ ; cert_cafile = cafile
+ ; cert_capath = capath } in
info "make_ssl_certificate" ?cert:(Some c) "";
c

0 comments on commit 8f77cb9

Please sign in to comment.
Something went wrong with that request. Please try again.