From 6d18889f7ed0a29e73727607b538b63889537d6b Mon Sep 17 00:00:00 2001 From: Steffen Michels 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