From 7e409d4ffd7e74a0b1489a298a829ef317596721 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 1 Jul 2012 16:29:24 +0200 Subject: Fix some minor bugs. --- src/mulk/benki/auth.clj | 7 ++++--- src/mulk/benki/config.clj | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/mulk/benki/auth.clj b/src/mulk/benki/auth.clj index f3e2a95..5a7e847 100644 --- a/src/mulk/benki/auth.clj +++ b/src/mulk/benki/auth.clj @@ -50,10 +50,11 @@ (if-let [return-uri (session/flash-get ::return-uri)] (redirect return-uri) (layout {} "Authenticated!" [:p "Welcome back, " (:first_name user) "!"]))) - (layout "Authentication Failed" + (layout {} + "Authentication Failed" [:p "Did not recognize OpenID."] [:p "Your OpenID is: " [:strong (.getIdentifier id)]])))) - (layout "Authentication Failed" [:p "OpenID authentication failed."])))) + (layout {} "Authentication Failed" [:p "OpenID authentication failed."])))) (defpage [:post "/login/browserid/verify"] {assertion :assertion} @@ -165,4 +166,4 @@ [:div {:id "openid_input_area"} [:input {:type "text", :name "openid_identifier", :id "openid_identifier"}] [:input {:type "submit"}]]]]))))))) - \ No newline at end of file + diff --git a/src/mulk/benki/config.clj b/src/mulk/benki/config.clj index c9a9dbe..30984b5 100644 --- a/src/mulk/benki/config.clj +++ b/src/mulk/benki/config.clj @@ -1,4 +1,4 @@ (ns mulk.benki.config (:refer-clojure)) -(def benki-config (atom nil)) +(defonce benki-config (atom nil)) -- cgit v1.2.3