From 724cf2e4dbde30eed77aa0b15991837672ee5cc3 Mon Sep 17 00:00:00 2001
From: Mike Solomon <mike120982@gmail.com>
Date: Mon, 2 May 2022 08:34:02 +0300
Subject: [PATCH] Closes managed contexts on unsubscribe

---
 src/WAGS/Run.purs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/WAGS/Run.purs b/src/WAGS/Run.purs
index ccd0c570..2b3f5350 100644
--- a/src/WAGS/Run.purs
+++ b/src/WAGS/Run.purs
@@ -8,7 +8,7 @@ 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_
@@ -16,7 +16,7 @@ run2_
   -> 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