summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-07-01 16:29:24 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-07-01 16:35:35 +0200
commit7e409d4ffd7e74a0b1489a298a829ef317596721 (patch)
treeed930750a60745c6983f33404a972cd825fb4dae /src
parent3f618aa9851fd7ca4a8c4f00c06f35527f39cd99 (diff)
Fix some minor bugs.
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/auth.clj7
-rw-r--r--src/mulk/benki/config.clj2
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))