bip32

commit a787932e2836752bb2e12baaffd7ef79ddb19b37
parent 97c0ea45886e5165a19016e04c51be296155d578
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 21 Feb 2025 10:03:51 +0400

lib: remove master_pub

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

1 file changed, 2 insertions(+), 14 deletions(-)
diff --git a/lib/Crypto/HDKey/BIP32.hs b/lib/Crypto/HDKey/BIP32.hs
@@ -153,8 +153,8 @@ instance Extended HDKey where
     Left l -> identifier l
     Right r -> identifier r
 
-master_priv :: BS.ByteString -> Maybe HDKey
-master_priv seed = do
+master :: BS.ByteString -> Maybe HDKey
+master seed = do
   m <- _master seed
   pure $! HDKey {
       ek_key = Right m
@@ -163,16 +163,6 @@ master_priv seed = do
     , ek_child = ser32 0
     }
 
-master_pub :: BS.ByteString -> Maybe HDKey
-master_pub seed = do
-  m <- _master seed
-  pure $! HDKey {
-      ek_key = Left (n m)
-    , ek_depth = 0
-    , ek_parent = Nothing
-    , ek_child = ser32 0
-    }
-
 derive_priv :: HDKey -> Word32 -> Maybe HDKey
 derive_priv HDKey {..} i = case ek_key of
   Left _ -> Nothing
@@ -210,8 +200,6 @@ xpub x@HDKey {..} =
       kek = BS.take 4 (SHA256.hash (SHA256.hash pay))
   in  B58.encode (pay <> kek)
 
--- XX make safer?
-
 xprv :: HDKey -> BS.ByteString
 xprv x@HDKey {..} =
   let _MAINNET_PRIVATE = 0x0488ADE4