fix warnings

IntersectMBO · Oct 12, 2021 · eda9ac7 · eda9ac7
1 parent 6fd1690
commit eda9ac7
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs b/plutus-contract/src/Plutus/Contract/Test/ContractModel.hs
@@ -146,7 +146,6 @@ import           Plutus.Trace.Emulator                 as Trace (ContractHandle
                                                                  EmulatorTrace, activateContract,
                                                                  freezeContractInstance, walletInstanceTag)
 import           Plutus.V1.Ledger.Scripts
-import qualified PlutusCore                            as PLC
 import qualified PlutusTx.Builtins                     as Builtins
 import           PlutusTx.ErrorCodes
 import           PlutusTx.Monoid                       (inv)
@@ -1212,7 +1211,7 @@ checkErrorWhitelistWithOptions opts handleSpecs whitelist acts = property $ go c
 
     checkEvent :: ScriptError -> Bool
     checkEvent (EvaluationError log "CekEvaluationFailure") = listToMaybe (reverse log) `isAcceptedBy` whitelist
-    checkEvent (EvaluationError log msg) | "BuiltinEvaluationFailure" `isPrefixOf` msg = False
+    checkEvent (EvaluationError _ msg) | "BuiltinEvaluationFailure" `isPrefixOf` msg = False
     checkEvent _                                            = False
 
     checkEvents :: [ChainEvent] -> Bool