From 34b0151e125a6698f57ea476ccfa922c6275edf1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 20 May 2017 15:16:40 -0400 Subject: move unsafe hashing out of instance to avoid misuse Avoids breaking backwards compat and should avoid future foot-shooting. --- Crypto.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Crypto.hs') diff --git a/Crypto.hs b/Crypto.hs index efc754f..2fe27e0 100644 --- a/Crypto.hs +++ b/Crypto.hs @@ -31,7 +31,7 @@ class Signed t where instance Hashable a => Signed (Activity a) where getSignature = activitySignature hashExceptSignature (Activity a mpa mpe mt _s) = hash $ - Tagged "Activity" [hash a, hash mpa, hash mpe, hash mt] + Tagged "Activity" [hash a, hashOfMaybeUnsafe mpa, hashOfMaybeUnsafe mpe, hash mt] instance Signed Control where getSignature = controlSignature -- cgit v1.2.3