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