Avoid thunk leak with AEAD state

2020-07-19 15:44:10 +02:00 · 2020-07-19 15:44:10 +02:00 · fa19117dfe
commit fa19117dfe
parent d49408156e
1 changed files with 1 additions and 1 deletions
--- a/Crypto/Cipher/Types/AEAD.hs
+++ b/Crypto/Cipher/Types/AEAD.hs
@ -27,7 +27,7 @@ data AEADModeImpl st = AEADModeImpl
 -- | Authenticated Encryption with Associated Data algorithms
 data AEAD cipher = forall st . AEAD
    { aeadModeImpl :: AEADModeImpl st
-    , aeadState    :: st
+    , aeadState    :: !st
    }

 -- | Append some header information to an AEAD context