Skip to content
Permalink
Browse files

Next try

  • Loading branch information
mgudemann committed Jan 14, 2020
1 parent ada0922 commit ada2892b418dc0c2658fd02c24e388d8193e49f2
Showing with 1 addition and 1 deletion.
  1. +1 −1 shelley/chain-and-ledger/executable-spec/test/Rules/TestUtxow.hs
@@ -168,7 +168,7 @@ requiredMSigSignaturesSubset tr =
signaturesSubset sst =
all (existsReqKeyComb $ keyHashSet sst) (_witnessMSigMap $ signal sst)
existsReqKeyComb keyHashes msig =
any (flip Set.isSubsetOf keyHashes) (map Set.fromList $ getKeyCombinations msig)
any (\kl -> (Set.fromList kl) `Set.isSubsetOf` keyHashes) (getKeyCombinations msig)
keyHashSet sst =
Set.map (\case
WitVKey vk _ -> hashAnyKey vk

0 comments on commit ada2892

Please sign in to comment.
You can’t perform that action at this time.