From b4718a004eb0d381c36a629897c2b2ac5adbf359 Mon Sep 17 00:00:00 2001 From: Maximilian Algehed Date: Mon, 4 Oct 2021 16:31:42 +0200 Subject: [PATCH] Update plutus-contract/src/Plutus/Contract/Test/ContractModel.hs Co-authored-by: Michael Peyton Jones --- plutus-contract/src/Plutus/Contract/Test/ContractModel.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs b/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs index b62f6d2b390..0b1ee52e7d3 100644 --- a/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs +++ b/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs @@ -1155,7 +1155,7 @@ data WhitelistEntry = WhitelistEntry { acceptEmptyLog :: Bool, errorPrefixes :: -- | A whitelist associates errors with a whitelist entry type Whitelist = Map String WhitelistEntry --- | Check that a log is accepted by a whitelist entry +-- | Check that the last entry in a log is accepted by a whitelist entry isAcceptedBy :: Maybe Text.Text -> WhitelistEntry -> Bool isAcceptedBy Nothing wle = acceptEmptyLog wle isAcceptedBy (Just lastEntry) wle = any (`Text.isPrefixOf` lastEntry) (errorPrefixes wle)