diff options
Diffstat (limited to 'src/mulk/benki/id.clj')
| -rw-r--r-- | src/mulk/benki/id.clj | 5 |
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"] |