cardano-addresses 4.0.1 → 4.0.2

raw patch · 5 files changed

+17/−11 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +6/−0
• cardano-addresses.cabal +1/−1
• lib/Cardano/Address/KeyHash.hs +6/−6
• test/Cardano/Address/Script/ParserSpec.hs +3/−3
• test/Main.hs +1/−1

@@ -1,3 +1,9 @@+## [4.0.2] ++### Added++- Fixed `keyHashFromText`+ ## [4.0.1] - 2025-10-30  ### Added

@@ -1,7 +1,7 @@ cabal-version: 1.12  name:           cardano-addresses-version:        4.0.1+version:        4.0.2 synopsis:       Utils for constructing a command-line on top of cardano-addresses. description:    Please see the README on GitHub at <https://github.com/IntersectMBO/cardano-addresses> category:       Cardano

@@ -250,9 +250,9 @@  where     convertBytes hrp bytes         | hrp == CIP5.addr_shared_vkh && checkBSLength bytes 28 =-              Just (Payment, bytes)+              Just (PaymentShared, bytes)         | hrp == CIP5.stake_shared_vkh && checkBSLength bytes 28 =-              Just (Delegation, bytes)+              Just (DelegationShared, bytes)         | hrp == CIP5.addr_vkh && checkBSLength bytes 28 =               Just (Payment, bytes)         | hrp == CIP5.stake_vkh && checkBSLength bytes 28 =@@ -296,19 +296,19 @@         | hrp == CIP5.cc_hot_vkh && checkBSLength bytes 28 =               Just (CommitteeHot, bytes)         | hrp == CIP5.addr_shared_vk && checkBSLength bytes 32 =-              Just (Payment, hashCredential bytes)+              Just (PaymentShared, hashCredential bytes)         | hrp == CIP5.addr_vk && checkBSLength bytes 32 =               Just (Payment, hashCredential bytes)         | hrp == CIP5.addr_shared_xvk && checkBSLength bytes 64 =-              Just (Payment, hashCredential $ BS.take 32 bytes)+              Just (PaymentShared, hashCredential $ BS.take 32 bytes)         | hrp == CIP5.addr_xvk && checkBSLength bytes 64 =               Just (Payment, hashCredential $ BS.take 32 bytes)         | hrp == CIP5.stake_shared_vk && checkBSLength bytes 32 =-              Just (Delegation, hashCredential bytes)+              Just (DelegationShared, hashCredential bytes)         | hrp == CIP5.stake_vk && checkBSLength bytes 32 =               Just (Delegation, hashCredential bytes)         | hrp == CIP5.stake_shared_xvk && checkBSLength bytes 64 =-              Just (Delegation, hashCredential $ BS.take 32 bytes)+              Just (DelegationShared, hashCredential $ BS.take 32 bytes)         | hrp == CIP5.stake_xvk && checkBSLength bytes 64 =               Just (Delegation, hashCredential $ BS.take 32 bytes)         | hrp == CIP5.policy_vk && checkBSLength bytes 32 =

@@ -64,11 +64,11 @@         (cosigner0,cosigner0Txt)   where     verKeyH1 = "addr_shared_vkh1zxt0uvrza94h3hv4jpv0ttddgnwkvdgeyq8jf9w30mcs6y8w3nq" :: Text-    kh1 = KeyHash Payment (unBech32 verKeyH1)+    kh1 = KeyHash PaymentShared (unBech32 verKeyH1)     verKeyH2 = "addr_shared_vkh1y3zl4nqgm96ankt96dsdhc86vd5geny0wr7hu8cpzdfcqskq2cp" :: Text-    kh2 = KeyHash Payment (unBech32 verKeyH2)+    kh2 = KeyHash PaymentShared (unBech32 verKeyH2)     verKeyH3 = "addr_shared_vkh175wsm9ckhm3snwcsn72543yguxeuqm7v9r6kl6gx57h8gdydcd9" :: Text-    kh3 = KeyHash Payment (unBech32 verKeyH3)+    kh3 = KeyHash PaymentShared (unBech32 verKeyH3)      script1 txt = "all ["<>txt<>"]"     script2 txt = " all   [ "<>txt<>"  ] "

@@ -14,7 +14,7 @@ --  https://github.com/haskell-foundation/foundation/blob/5e28e3ea1e2fe9a98c157df463bd32d3f92e7f80/basement/Basement/Terminal.hs#L14-L26 #ifdef mingw32_HOST_OS import System.IO-    ( hPutStrLn, hSetEncoding, stderr, stdin, stdout, utf8 )+    ( hSetEncoding, stderr, stdin, stdout, utf8 ) import System.Win32.Console     ( getConsoleCP, getConsoleOutputCP, setConsoleCP, setConsoleOutputCP ) #endif