View on GitHub
File Changes
    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