git.iko.soy/rowtype-yoga/purescript-tauri
on main help sign in
rowtype-yoga/purescript-tauri/src/Tauri/Internal/Resource.purs
30 lines 909 B history raw
1module Tauri.Internal.Resource (acquireDisposer, once) where
3import Prelude
5import Effect (Effect)
6import Effect.Aff (Aff, generalBracket)
7import Effect.Class (liftEffect)
8import Effect.Ref as Ref
9import Promise (Promise)
10import Promise.Aff (toAffE)
12-- A pending native registration cannot be aborted. If the Aff is cancelled,
13-- wait for its real unlisten handle and dispose it rather than leaking it.
14acquireDisposer :: Effect (Promise (Effect Unit)) -> Aff (Effect Unit)
15acquireDisposer acquire = generalBracket
16 (toAffE acquire >>= liftEffect <<< once)
17 { killed: \_ dispose -> liftEffect dispose
18 , failed: \_ dispose -> liftEffect dispose
19 , completed: \_ _ -> pure unit
20 }
21 pure
23once :: Effect Unit -> Effect (Effect Unit)
24once action = do
25 disposed <- Ref.new false
26 pure do
27 alreadyDisposed <- Ref.read disposed
28 unless alreadyDisposed do
29 Ref.write true disposed
30 action