hmac-drbg

commit e19526abac03271536df74c965c21a89ef9a2927
parent ce317b7fd9a76b7dfda0b06084109c1784a53df6
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat,  5 Oct 2024 07:18:49 +0400

lib: haddock pragma

Diffstat:
M
lib/Crypto/DRBG/HMAC.hs
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/Crypto/DRBG/HMAC.hs b/lib/Crypto/DRBG/HMAC.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_HADDOCK prune #-}
 {-# OPTIONS_GHC -funbox-small-strict-fields #-}
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE LambdaCase #-}
@@ -79,7 +80,8 @@ data HMACEnv = HMACEnv
                  !HMAC
   {-# UNPACK #-} !Word64
 
--- | Read the 'V' value from the DRBG state. Useful for testing.
+-- the following convenience functions are useful for testing
+
 _read_v
   :: PrimMonad m
   => DRBG (PrimState m)
@@ -88,7 +90,6 @@ _read_v (DRBG mut) = do
   DRBGState _ _ v _ <- P.readMutVar mut
   pure v
 
--- | Read the 'Key' value from the DRBG state. Useful for testing.
 _read_k
   :: PrimMonad m
   => DRBG (PrimState m)