Recognise WSSE time stamps correctly.

Ignore-this: 329443f3c545af16b381b1b0a2ec1657

darcs-hash:a95e7ddaa371dd22a7ebacb65e27676b2c9c6310

1 files changed, 3 insertions, 1 deletions

diff --git a/utils.lisp b/utils.lisp
index 9dac197..acff2c0 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -390,7 +390,9 @@ ELEMENT-TYPE as the stream's."
                           (subseq *wsse* (elt regstarts 1) (elt regends 1))
                           params)))
     (let* ((timestamp (cdr (assoc "created" params :test 'equalp)))
-           (time (cybertiggyr-time:parse-time timestamp))
+           (time (and (stringp timestamp)
+                      (cybertiggyr-time:parse-time timestamp
+                                                   (list (cybertiggyr-time::make-fmt-recognizer "%Y-%m-%dT%H:%M:%SZ")))))
            (nonce (cdr (assoc "nonce" params :test 'equalp)))
            (user (cdr (assoc "username" params :test 'equalp)))
            (their-digest (cdr (assoc "passworddigest" params :test 'equalp)))