Tienson Qin пре 8 месеци
родитељ
комит
ef43f997ea
1 измењених фајлова са 3 додато и 3 уклоњено
  1. 3 3
      deps/common/src/logseq/common/uuid.cljs

+ 3 - 3
deps/common/src/logseq/common/uuid.cljs

@@ -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)