diff --git a/src/Quasar/Monad.hs b/src/Quasar/Monad.hs
index c2123937ba8f0d55178b412e4b3df444fd6b43c5..1fb80f85152ad0425f9839383da8427c50b9e95f 100644
--- a/src/Quasar/Monad.hs
+++ b/src/Quasar/Monad.hs
@@ -14,6 +14,9 @@ module Quasar.Monad (
   runQuasarIO,
   liftQuasarIO,
   quasarAtomically,
+
+  enterQuasarIO,
+  enterQuasarSTM,
 ) where
 
 import Control.Concurrent.STM
@@ -156,3 +159,9 @@ quasarAtomically (QuasarSTM fn) = do
      effectAwaitableVar <- newTVar (pure ())
      result <- runReaderT fn (quasar, effectAwaitableVar)
      (result <$) <$> readTVar effectAwaitableVar
+
+enterQuasarIO :: MonadIO m => Quasar -> QuasarIO () -> m ()
+enterQuasarIO = undefined
+
+enterQuasarSTM :: MonadQuasar m => Quasar -> QuasarSTM () -> m ()
+enterQuasarSTM = undefined