authentication

auth.clj

(ns galactic-donut.routes.auth
  (:require [compojure.core :refer :all]
            [com.ashafa.clutch :refer :all]
            [noir.session :as session]
            [noir.response :as response]
            [noir.validation :as vali]
            [cemerick.friend :as friend]
            [cemerick.friend [workflows :as workflows]
                             [credentials :as creds]]))

(defn authorize* [routes username pass])
(defn authorize [routes {:keys [username pass]}])

(defn valid? [username pass pass1]
  (vali/rule (vali/has-value? username))
  (vali/rule (vali/min-length? pass 5)
             [:pass "Password must be at least 5 characters"])
  (vali/rule (= pass pass1)
             [:pass "Passwords don't match up"])
  (not (vali/errors? :username :pass :pass1)))

(defn handle-registration
  "Collect new users information to handle registration"
  [id pass pass1]
  (session/put! :username id)
  (response/redirect))

(defroutes auth-routes
  (GET "/register" [])
  (POST "/register" [username pass pass1]
        (handle-registration id pass pass1))) 

error

java.lang.IllegalStateException: assoc! already refers to: #'com.ashafa.clutch/assoc! in namespace: galactic-donut.routes.auth
             Namespace.java:88 clojure.lang.Namespace.warnOrFailOnReplace
            Namespace.java:110 clojure.lang.Namespace.reference
            Namespace.java:168 clojure.lang.Namespace.refer
                 core.clj:3850 clojure.core/refer
               RestFn.java:410 clojure.lang.RestFn.invoke
/Users/kingdom/cosmos/galactic-donut/src/galactic_donut/routes/auth.clj:1 galactic-donut.routes.auth/eval13257[fn]
/Users/kingdom/cosmos/galactic-donut/src/galactic_donut/routes/auth.clj:1 galactic-donut.routes.auth/eval13257