quasar: Export TDisposer

queezle42 · Nov 17, 2023 · 6bbc5f2 · 6bbc5f2
1 parent 6621c3a
commit 6bbc5f2
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 6 deletions.
diff --git a/quasar/src/Quasar/Resources.hs b/quasar/src/Quasar/Resources.hs
@@ -37,15 +37,23 @@ module Quasar.Resources (
   -- * Types to implement resources
   -- ** Disposer
   Disposer,
-  TDisposer,
-  TSimpleDisposer,
-  disposeSTM,
   disposeTSimpleDisposer,
   newUnmanagedIODisposer,
-  newUnmanagedSTMDisposer,
-  newUnmanagedTSimpleDisposer,
   trivialDisposer,
   isTrivialDisposer,
+
+  -- *** STM variants
+  TDisposable(..),
+  TDisposer,
+  disposeSTM,
+  newUnmanagedSTMDisposer,
+  newUnmanagedNoRetryTDisposer,
+  newUnmanagedRetryTDisposer,
+  isTrivialTDisposer,
+
+  -- *** Legacy NoRetry disposer
+  TSimpleDisposer,
+  newUnmanagedTSimpleDisposer,
   isTrivialTSimpleDisposer,
 
   -- ** Resource manager
@@ -57,6 +65,8 @@ module Quasar.Resources (
   -- * Implementing disposers
   IsDisposerElement(..),
   toDisposer,
+  IsTDisposerElement(..),
+  toTDisposer,
 ) where
 
 

diff --git a/quasar/src/Quasar/Resources/Disposer.hs b/quasar/src/Quasar/Resources/Disposer.hs
@@ -22,7 +22,7 @@ module Quasar.Resources.Disposer (
   newUnmanagedRetryTDisposer,
   isTrivialTDisposer,
 
-  -- ** Legacy/internal STM variants
+  -- ** Legacy NoRetry disposer
   TSimpleDisposer,
   newUnmanagedTSimpleDisposer,
   disposeTSimpleDisposer,