diff --git a/src/Quasar/PreludeExtras.hs b/src/Quasar/PreludeExtras.hs
index 689f488333b3564a9fa6f85185470af3c0370a18..0024f2c8de6a67d556ae696b5cb1c2da96398abd 100644
--- a/src/Quasar/PreludeExtras.hs
+++ b/src/Quasar/PreludeExtras.hs
@@ -22,6 +22,9 @@ import GHC.TypeLits (Symbol)
 import Lens.Micro.Platform (Lens', lens)
 import Quasar.Utils.ExtraT
 
+io :: IO a -> IO a
+io = id
+
 impossibleCodePath :: GHC.Stack.Types.HasCallStack => a
 impossibleCodePath = error "Code path marked as impossible was reached"
 
diff --git a/test/Quasar/DisposableSpec.hs b/test/Quasar/DisposableSpec.hs
index 8d57ac537ef4317ace49d584696fb3c38df4bac3..54ab509b867fb01497496bcfbc3bea2153d569fd 100644
--- a/test/Quasar/DisposableSpec.hs
+++ b/test/Quasar/DisposableSpec.hs
@@ -3,7 +3,7 @@ module Quasar.DisposableSpec (spec) where
 import Control.Exception
 import Control.Concurrent
 import Control.Monad (void)
-import Prelude
+import Quasar.Prelude
 import Test.Hspec
 import Quasar.Awaitable
 import Quasar.Disposable
@@ -13,9 +13,6 @@ data TestException = TestException
 
 instance Exception TestException
 
-io :: IO a -> IO a
-io = id
-
 spec :: Spec
 spec = parallel $ do
   describe "Disposable" $ do