From c9b24e60bc5a6ac7475e18d41fc7dfe70d9aacb8 Mon Sep 17 00:00:00 2001 From: Oleg Grenrus <oleg.grenrus@iki.fi> Date: Tue, 24 Sep 2019 14:23:06 +0300 Subject: [PATCH] fixup! Add Distribution.Utils.StructuredBinary --- Cabal/Distribution/Utils/StructuredBinary.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Cabal/Distribution/Utils/StructuredBinary.hs b/Cabal/Distribution/Utils/StructuredBinary.hs index e776fb9c4a..37fc48b3a0 100644 --- a/Cabal/Distribution/Utils/StructuredBinary.hs +++ b/Cabal/Distribution/Utils/StructuredBinary.hs @@ -202,7 +202,7 @@ structureHash _ = untag (structureHash' :: Tagged a MD5) -- | Structured 'Binary.encode'. -- Encode a value to using binary serialisation to a lazy 'LBS.ByteString'. --- Encoding starts with 20 byte large structure hash. +-- Encoding starts with 16 byte large structure hash. structuredEncode :: forall a. (Binary.Binary a, Structured a) => a -> LBS.ByteString -- GitLab