Fix preserving expanded-at on clerk/show

nextjournal · Aug 24, 2023 · 8a0e1ff · 8a0e1ff
1 parent 02dd0fc
commit 8a0e1ff
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/nextjournal/clerk/analyzer.clj b/src/nextjournal/clerk/analyzer.clj
@@ -609,9 +609,10 @@
    (let [digest-fn (case hash-type
                      :sha1 sha1-base58
                      :sha512 sha2-base58)]
-     (-> value
-         nippy/fast-freeze
-         digest-fn))))
+     (binding [nippy/*incl-metadata?* false]
+       (-> value
+           nippy/fast-freeze
+           digest-fn)))))
 
 #_(valuehash (range 100))
 #_(valuehash :sha1 (range 100))