diff --git a/quasar/src/Quasar/Resources.hs b/quasar/src/Quasar/Resources.hs index 67e229c..246ff87 100644 --- 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 index 23e0e1f..182f15c 100644 --- 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,