bip32

commit 433e609f4fb0e81a8ff1efd0c9242db8d69ed815
parent 98bca261fee9627991a5c6ed923b07d27c7a7639
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 23 Feb 2025 10:12:53 +0400

lib: benign strictness

Not necessary, but the laziness also isn't necessary..

Diffstat:
M
lib/Crypto/HDKey/BIP32.hs
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Crypto/HDKey/BIP32.hs b/lib/Crypto/HDKey/BIP32.hs
@@ -237,13 +237,13 @@ derive_child_pub HDKey {..} i = do
   (key, parent) <- case hd_key of
     Left _xpub  -> do
       pub <- ckd_pub _xpub i
-      pure (pub, fingerprint _xpub)
+      pure $! (pub, fingerprint _xpub)
     Right _xprv ->
       let pub = n (ckd_priv _xprv i)
-      in  pure (pub, fingerprint _xprv)
+      in  pure $! (pub, fingerprint _xprv)
   let depth = hd_depth + 1
       child = ser32 i
-  pure $ HDKey (Left key) depth parent child
+  pure $! HDKey (Left key) depth parent child
 
 -- derivation path expression -------------------------------------------------