commit 40670e17b116a96fabbd4e7e148db8827f972cde
parent 6399c33126de81ea9155b9f61f1ab37011755c85
Author: Jared Tobin <jared@jtobin.io>
Date: Sat, 5 Oct 2024 16:32:14 +0400
lib: placeholder show instance for drbg
Diffstat:
1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/lib/Crypto/DRBG/HMAC.hs b/lib/Crypto/DRBG/HMAC.hs
@@ -57,6 +57,9 @@ _RESEED_COUNTER = (2 :: Word64) ^ (48 :: Word64)
-- bytes as needed.
newtype DRBG s = DRBG (P.MutVar s DRBGState)
+instance Show (DRBG s) where
+ show _ = "<drbg>"
+
-- DRBG environment data and state
data DRBGState = DRBGState
!HMACEnv -- hmac function & outlen