Fix null in seq bug.

replikativ · Sep 6, 2016 · c25b111 · c25b111
1 parent 070e915
commit c25b111
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/README.md b/README.md
@@ -182,6 +182,7 @@ nil
 
 
 # Changes
+- 0.3.1 fix bug in hashing sequences containing null
 - 0.3.0 fix accidental hashing of records as maps
 - 0.3.0-beta4 fix record serialization with incognito
 - 0.3.0 Overhaul encoding for ~10x-20x times performance on the JVM. Use safe SHA-512. Add byte-array support for blobs.

diff --git a/src/hasch/benc.cljc b/src/hasch/benc.cljc
@@ -43,9 +43,9 @@
 (defn ^bytes coerce-seq [seq md-create-fn write-handlers]
   (let [^MessageDigest seq-md (md-create-fn)]
     (loop [s seq]
-      (let [f (first s)]
-        (when f
-          (.update seq-md  ^bytes (-coerce f md-create-fn write-handlers))
+      (let [[f & r] s]
+        (.update seq-md  ^bytes (-coerce f md-create-fn write-handlers))
+        (when-not (empty? r)
           (recur (rest s)))))
     (.digest seq-md)))