   reference a PEM that contains the CA cert.
 
   Returns the SSLContext instance."
-  [ca-cert :- Something]
+  [ca-cert :- ReaderSchema]
   (with-open [ca-cert-reader (reader ca-cert)]
     (SSLUtils/caCertPemToSSLContext ca-cert-reader)))
 


(def Something
  (schema/pred #(not (nil? %))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Internal

  decode the contents into a `PrivateKey` instance. Throws an exception if multiple keys
  are found in the PEM.
  See `key->pem!` and `pem->private-keys` to write/read keys."
  [pem :- ReaderSchema]
  (with-open [r (reader pem)]
    (SSLUtils/pemToPrivateKey r)))

