Move `io` to prelude

Co-authored-by: Jan Beinke <git@janbeinke.com>

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"
 

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