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.

1 files changed, 1 insertions, 1 deletions

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