From 6f7cf857b408401abdc4477c888495b4f13162c7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Apr 2017 17:30:32 -0400 Subject: reorganized message types Make Control messages be out-of-band async messages, without a pointer to a previous message. And then followed the type change through the code for hours.. This commit was sponsored by Nick Daly on Patreon. --- Crypto.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Crypto.hs') diff --git a/Crypto.hs b/Crypto.hs index 8d4a350..a99d497 100644 --- a/Crypto.hs +++ b/Crypto.hs @@ -11,7 +11,7 @@ import Data.ByteArray (convert) import Data.ByteString dummySignature :: Signature -dummySignature = OtherSignature (Val undefined) +dummySignature = OtherSignature (Val mempty) -- | Sign any Hashable value. sign :: Hashable v => MySessionKey -> v -> Signature -- cgit v1.2.3