diff --git a/plutus-core/plutus-ir/src/PlutusIR/Pass.hs b/plutus-core/plutus-ir/src/PlutusIR/Pass.hs
index 4f2d48b6a2c..c4ead67348d 100644
--- a/plutus-core/plutus-ir/src/PlutusIR/Pass.hs
+++ b/plutus-core/plutus-ir/src/PlutusIR/Pass.hs
@@ -12,13 +12,12 @@ import PlutusIR.TypeCheck qualified as TC
 import PlutusCore qualified as PLC
 import PlutusCore.Name.Unique
 
-import Control.Monad (when)
+import Control.Monad (when, void)
 import Control.Monad.Except
 import Control.Monad.Trans.Class (lift)
 import Data.Foldable
 import Data.Text (Text)
 import PlutusCore.Quote
-import PlutusPrelude
 
 -- | A condition on a 'Term'.
 data Condition tyname name uni fun a where