Merge pull request #292 from obsidiansystems/slight-dedup

Slight deduplication of `algoDigestBuilder`
haskell-nix · Nov 1, 2024 · dd69c4c · dd69c4c
2 parents 9b24233 + c34b312
commit dd69c4c
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/hnix-store-core/src/System/Nix/Hash.hs b/hnix-store-core/src/System/Nix/Hash.hs
@@ -185,7 +185,4 @@ digestBuilder digest =
 
 -- | Builder for @DSum HashAlgo Digest@s
 algoDigestBuilder :: DSum HashAlgo Digest -> Builder
-algoDigestBuilder (a :=> d) =
-  Data.Text.Lazy.Builder.fromText (System.Nix.Hash.algoToText a)
-  <> ":"
-  <> Data.Text.Lazy.Builder.fromText (encodeDigestWith NixBase32 d)
+algoDigestBuilder (a :=> d) = has @NamedAlgo a $ digestBuilder d