diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-07-01 16:29:24 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-07-01 16:35:35 +0200 |
| commit | 7e409d4ffd7e74a0b1489a298a829ef317596721 (patch) | |
| tree | ed930750a60745c6983f33404a972cd825fb4dae | |
| parent | 3f618aa9851fd7ca4a8c4f00c06f35527f39cd99 (diff) | |
Fix some minor bugs.
| -rw-r--r-- | src/mulk/benki/auth.clj | 7 | ||||
| -rw-r--r-- | 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)) |