Closes managed contexts on unsubscribe

mikesol · May 2, 2022 · 724cf2e · 724cf2e
1 parent 85646f3
commit 724cf2e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/WAGS/Run.purs b/src/WAGS/Run.purs
@@ -8,15 +8,15 @@ import FRP.Event (Event, subscribe)
 import WAGS.Control (speaker2)
 import WAGS.Core (mix)
 import WAGS.Core as C
-import WAGS.Interpret (FFIAudioSnapshot, context, effectfulAudioInterpret, makeFFIAudioSnapshot)
+import WAGS.Interpret (FFIAudioSnapshot, close, context, effectfulAudioInterpret, makeFFIAudioSnapshot)
 import WAGS.WebAPI (AudioContext)
 
 run2_
   :: (forall lock. Array (C.Node D2 lock (FFIAudioSnapshot -> Effect Unit)))
   -> Effect (Effect Unit)
 run2_ s = do
   ctx <- context
-  run2 ctx s
+  map (_ *> close ctx) (run2 ctx s)
 
 run2
   :: AudioContext
@@ -33,7 +33,7 @@ run2e_
   -> Effect (Effect Unit)
 run2e_ s = do
   ctx <- context
-  run2e ctx s
+  map (_ *> close ctx) (run2e ctx s)
 
 run2e
   :: AudioContext