More tweaks

tomjaguarpaw · Jan 28, 2024 · 2fa303e · 2fa303e
1 parent e3b0d0c
commit 2fa303e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git 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
@@ -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