diff --git a/bluefin-internal/bluefin-internal.cabal b/bluefin-internal/bluefin-internal.cabal
index 7b72647..ab0ae1a 100644
--- a/bluefin-internal/bluefin-internal.cabal
+++ b/bluefin-internal/bluefin-internal.cabal
@@ -35,7 +35,8 @@ library
       GeneralisedNewtypeDeriving
       HexFloatLiterals
       ImplicitPrelude
-      ImportQualifiedPost
+      -- Not available until 8.10
+      -- ImportQualifiedPost
       InstanceSigs
       KindSignatures
       MonomorphismRestriction
diff --git a/bluefin-internal/src/Bluefin/Internal.hs b/bluefin-internal/src/Bluefin/Internal.hs
index f8f0659..65f4ff6 100644
--- a/bluefin-internal/src/Bluefin/Internal.hs
+++ b/bluefin-internal/src/Bluefin/Internal.hs
@@ -8,9 +8,9 @@
 module Bluefin.Internal where
 
 import Control.Exception (throwIO, tryJust)
-import Control.Exception qualified
+import qualified Control.Exception
 import Data.IORef (IORef, newIORef, readIORef, writeIORef)
-import Data.Unique qualified
+import qualified Data.Unique
 import Data.Void (Void, absurd)
 import GHC.Exts (Proxy#, proxy#)
 import System.IO.Unsafe (unsafePerformIO)
@@ -33,7 +33,7 @@ unsafeRemoveEff :: Eff (e :& es) a -> Eff es a
 unsafeRemoveEff = Eff . unsafeUnEff
 
 runEff :: (forall es. Eff es a) -> a
-runEff = unsafePerformIO . unsafeUnEff
+runEff e = unsafePerformIO {unsafeUnEff e)
 
 weakenEff :: t `In` t' -> Eff t r -> Eff t' r
 weakenEff _ = Eff . unsafeUnEff