Skip to content

Instantly share code, notes, and snippets.

Created Oct 19, 2009
What would you like to do?
(defn verify-challenge
[callback mode topic challenge]
(let [url (build-callback-url callback mode topic challenge)]
(= challenge (.trim (apply str (:body-seq (request url))))) 204
(catch Exception ex (failed-challenge callback (.getMessage ex))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment