Slight deduplication of algoDigestBuilder

haskell-nix · Nov 1, 2024 · c34b312 · c34b312
1 parent a41c941
commit c34b312
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