summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mulk/benki/id.clj11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index 4265945..56a86ee 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -137,13 +137,16 @@
(process-openid-request))
(defn render-profile-page [nickname]
- (if (re-find #"application/xrds\+xml"
- (get-in (request/ring-request) [:headers "accept"]))
- (render-xrds nickname)
- (show-profile-page (nickname-user nickname))))
+ (let [accept (get-in (request/ring-request) [:headers "accept"])]
+ (if (and accept
+ (re-find #"application/xrds\+xml"
+ (get-in (request/ring-request) [:headers "accept"])))
+ (render-xrds nickname)
+ (show-profile-page (nickname-user nickname)))))
(defpage [:get "/id/:nickname"] {nickname :nickname}
(render-profile-page nickname))
(defpage [:get "/~:nickname"] {nickname :nickname}
(render-profile-page nickname))
+