summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mulk/benki/id.clj5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index 1442903..e413287 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -55,9 +55,12 @@
(.sign manager response)
(redirect (.getDestinationUrl response true))))))
+(defn stringify-keys [m]
+ (into {} (map (fn [[k v]] [(name k) v]) m)))
+
(defn process-openid-request []
(let [query (:params (request/ring-request))
- paramlist (ParameterList. query)
+ paramlist (ParameterList. (stringify-keys query))
mode (query "openid.mode")]
(match [mode]
["associate"]