From 6d18889f7ed0a29e73727607b538b63889537d6b Mon Sep 17 00:00:00 2001
From: Steffen Michels <mail@steffen-michels.de>
Date: Tue, 19 Jun 2018 19:11:45 +0200
Subject: [PATCH] clear SDS registrations when watch task is destroyed

---
 Libraries/iTasks/WF/Tasks/SDS.icl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Libraries/iTasks/WF/Tasks/SDS.icl b/Libraries/iTasks/WF/Tasks/SDS.icl
index 01ad0ca36..41970c1ad 100644
--- a/Libraries/iTasks/WF/Tasks/SDS.icl
+++ b/Libraries/iTasks/WF/Tasks/SDS.icl
@@ -8,7 +8,8 @@ import iTasks.Internal.Task
 import iTasks.Internal.TaskState
 import iTasks.Internal.TaskEval
 import qualified iTasks.Internal.SDS as SDS
-import StdString
+import StdString, Data.Func, Data.Error
+import qualified Data.Set as DS
 
 instance toString SharedException
 where
@@ -57,10 +58,9 @@ where
 			Ok val		= ValueResult (Value val False) {TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=True} (rep event) (TCInit taskId ts)
 			Error e		= ExceptionResult e
 		= (res,iworld)
-	eval event repAs (TCDestroy _) iworld = (DestroyedResult,iworld)
+	eval event repAs ttree=:(TCDestroy _) iworld
+		# iworld = 'SDS'.clearTaskSDSRegistrations ('DS'.singleton $ fromOk $ taskIdFromTaskTree ttree) iworld
+		= (DestroyedResult,iworld)
 
 	rep ResetEvent  = ReplaceUI (ui UIEmpty) 
 	rep _ 			= NoChange
-
-
-
-- 
GitLab