From eec1fa16980cfc91b9fe69e4840f9cfb2f535167 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 8 Apr 2012 23:50:09 +0200
Subject: OpenID IdP: Make process-openid-request more lenient with regard to
 the format of (:params (request/ring-request)).

---
 src/mulk/benki/id.clj | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/mulk/benki/id.clj')

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"]
-- 
cgit v1.2.3