merge workflow config

cemerick · Apr 6, 2012 · 7fad2d2 · 7fad2d2
1 parent cfe2577
commit 7fad2d2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/cemerick/friend/workflows.clj b/src/cemerick/friend/workflows.clj
@@ -56,7 +56,7 @@
                                       param))))
 
 (defn interactive-form
-  [& {:keys [login-uri credential-fn login-failure-handler]}]
+  [& {:keys [login-uri credential-fn login-failure-handler] :as config}]
   (fn [{:keys [uri request-method params] :as request}]
     (when (and (= login-uri uri)
                (= :post request-method))
@@ -67,5 +67,6 @@
           (with-meta (username-as-identity user-record)
             {::friend/workflow :interactive-form
              :type ::friend/auth})
-          ((or login-failure-handler #'interactive-login-redirect) request))))))
+          ((or login-failure-handler #'interactive-login-redirect)
+            (update-in request [::friend/auth-config] #(merge config %))))))))