fix shelley core unit tests

cardano-foundation · May 5, 2021 · f79d5ea · f79d5ea
1 parent 5f40367
commit f79d5ea
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs b/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs
@@ -19,6 +19,7 @@ import Cardano.Address.Derivation
     ( XPrv, XPub )
 import Cardano.Address.Script
     ( KeyHash
+    , KeyRole (..)
     , Script (..)
     , ScriptHash (..)
     , keyHashFromBytes
@@ -474,7 +475,7 @@ unit_assessTokenBundleSize_fixedSizeBundle_128 (Blind (FixedSize128 b)) =
 
 toKeyHash :: Text -> Script KeyHash
 toKeyHash txt = case fromBase16 (T.encodeUtf8 txt) of
-    Right bs -> case keyHashFromBytes bs of
+    Right bs -> case keyHashFromBytes (Payment, bs) of
         Just kh -> RequireSignatureOf kh
         Nothing -> error "Hash key not valid"
     Left _ -> error "Hash key not valid"