From dd42f0041928dd4128ef3634dbaf7eab04e5c0d9 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 20 Feb 2022 01:53:23 +0100
Subject: [PATCH] Add enterQuasar...-function stubs
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
src/Quasar/Monad.hs | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/src/Quasar/Monad.hs b/src/Quasar/Monad.hs
index c212393..1fb80f8 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
--
GitLab