Avoid thunk leak with AEAD state

This commit is contained in:
Olivier Chéron 2020-07-19 15:44:10 +02:00
parent d49408156e
commit fa19117dfe

View File

@ -27,7 +27,7 @@ data AEADModeImpl st = AEADModeImpl
-- | Authenticated Encryption with Associated Data algorithms -- | Authenticated Encryption with Associated Data algorithms
data AEAD cipher = forall st . AEAD data AEAD cipher = forall st . AEAD
{ aeadModeImpl :: AEADModeImpl st { aeadModeImpl :: AEADModeImpl st
, aeadState :: st , aeadState :: !st
} }
-- | Append some header information to an AEAD context -- | Append some header information to an AEAD context