File tree 2 files changed +8
-6
lines changed
src/Control/Monad/Resource 2 files changed +8
-6
lines changed Original file line number Diff line number Diff line change @@ -71,12 +71,13 @@ runResource :: forall a. Resource a -> Aff a
71
71
72
72
Run an ` Aff ` computation in the ` ResourceT ` monad.
73
73
74
- #### ` flattenResourceT `
74
+ #### ` joinResourceT `
75
75
76
76
``` purescript
77
- flattenResourceT :: forall m a. ResourceT (ResourceT m) a -> ResourceT m a
77
+ joinResourceT :: forall m a. ResourceT (ResourceT m) a -> ResourceT m a
78
78
```
79
79
80
- Combine two levels of ` ResourceT ` into one, so that they also share the same cleanup store.
80
+ This function mirrors ` join ` at the transformer level: it will collapse two levels of ` ResourceT ` into a single
81
+ ` ResourceT ` .
81
82
82
83
Original file line number Diff line number Diff line change @@ -42,9 +42,10 @@ runResourceT nat (ResourceT run) = do
42
42
runResource :: forall a . Resource a -> Aff a
43
43
runResource = runResourceT identity
44
44
45
- -- | Combine two levels of `ResourceT` into one, so that they also share the same cleanup store.
46
- flattenResourceT :: forall m a . ResourceT (ResourceT m ) a -> ResourceT m a
47
- flattenResourceT (ResourceT run) = ResourceT \registry -> case run registry of ResourceT run' -> run' registry
45
+ -- | This function mirrors `join` at the transformer level: it will collapse two levels of `ResourceT` into a single
46
+ -- | `ResourceT`.
47
+ joinResourceT :: forall m a . ResourceT (ResourceT m ) a -> ResourceT m a
48
+ joinResourceT (ResourceT run) = ResourceT \registry -> case run registry of ResourceT run' -> run' registry
48
49
49
50
instance functorResourceT :: Functor m => Functor (ResourceT m ) where
50
51
map f (ResourceT r) = ResourceT (map f <<< r)
You can’t perform that action at this time.
0 commit comments