Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Next try
  • Loading branch information
mgudemann committed Jan 14, 2020
1 parent ada0922 commit adada04
Showing 1 changed file with 3 additions and 2 deletions.
Expand Up @@ -166,9 +166,10 @@ requiredMSigSignaturesSubset tr =
map signaturesSubset tr
where
signaturesSubset sst =
all (existsReqKeyComb $ keyHashSet sst) (_witnessMSigMap $ signal sst)
let khs = keyHashSet sst in
all (existsReqKeyComb khs) (_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
Expand Down

0 comments on commit adada04

Please sign in to comment.