fix: lint

This commit is contained in:
Tienson Qin
2025-02-20 05:20:25 +08:00
parent 79d0008637
commit ef43f997ea

View File

@@ -21,9 +21,9 @@ the remaining chars for data of this type"
(defn gen-block-uuid
"prefix-<hash-of-db-ident>-<padding-with-0>"
[key prefix]
{:pre [(keyword? key)]}
(let [hash-num (str (Math/abs (hash key)))
[k prefix]
{:pre [(keyword? k)]}
(let [hash-num (str (Math/abs (hash k)))
part1 (fill-with-0 (subs hash-num 0 4) 4)
part2 (fill-with-0 (subs hash-num 4 8) 4)
part3 (fill-with-0 (subs hash-num 8 12) 4)