minor regexp improvement

2014-02-25 18:27:31 +01:00
parent 3f3737572b
commit ad40e27345
1 changed files with 1 additions and 1 deletions
@@ -9,7 +9,7 @@
  (defn sign
    "Returns the MD5 hash for the concatenation of all passed parameters"
    [& args]
-    (let [input (sreplace (apply str args) #"\r*" "")]
+    (let [input (sreplace (apply str args) #"\r+" "")]
      (do (.reset md5Instance)
          (.update md5Instance (.getBytes input))
          (apply str