Convert sequential spaces in the header value to a single space.

rotatef · Jun 19, 2018 · 386a5e3 · 386a5e3
1 parent 70b4fb8
commit 386a5e3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/aws-sign4.asd b/aws-sign4.asd
@@ -21,6 +21,7 @@
   :author "Thomas Bakketun <thomas.bakketun@copyleft.no>"
   :description "A library for Amazon Web Services signing version 4"
   :depends-on (:local-time
+               :cl-ppcre
                :ironclad
                :split-sequence
                :flexi-streams

diff --git a/aws-sign4.lisp b/aws-sign4.lisp
@@ -74,7 +74,7 @@ parameter ESCAPE% is NIL, the % is not escaped."
                 #'string<)))
 
 (defun trimall (string)
-  (string-trim '(#\Space #\Tab) string))
+  (cl-ppcre:regex-replace-all "^\\s+|(?<=\\s)\\s+|\\s+$" string ""))
 
 (defun merge-duplicate-headers (headers)
   (loop for header = (pop headers)