Skip to content

Instantly share code, notes, and snippets.

@caioaao

caioaao/user_registration.clj Secret

Last active May 15, 2018 19:36
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 caioaao/700cfb60defb9cb466fd673c891afd1d to your computer and use it in GitHub Desktop.
Save caioaao/700cfb60defb9cb466fd673c891afd1d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
user_registration.clj
(defn with-password-hash [user]
(assoc user :password-hash (hash (user :password))))
(defn with-creation-date [user as-of]
(assoc user :created-at as-of))
(defn handle-user-registration! [user-data as-of]
(db/save-user! (with-password-hash (with-creation-date user-data as-of))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment