Skip to content

Instantly share code, notes, and snippets.

@akhudek

akhudek/gist:3e00c0c54dec3a2def7e Secret

Created June 19, 2015 21:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save akhudek/3e00c0c54dec3a2def7e to your computer and use it in GitHub Desktop.
Save akhudek/3e00c0c54dec3a2def7e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn enabled-cipher-suites
"Set the enabled cipher suites."
[{:keys [configuration] :as options} ciphers]
(let [^Undertow$Builder builder (or configuration (Undertow/builder))]
(assoc options :configuration
(.setSocketOption builder Options/SSL_ENABLED_CIPHER_SUITES (string/join "," ciphers)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment