X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;fp=Shares%2FmTaskShare.icl;h=f4b0721fe410669ef527d9f492dda8af4fe8937a;hb=22938a745f2763f2f4366247043d7edc5c96a1d0;hp=60fb0a8da1568f2517df735ab401d447d753d1d0;hpb=6afdda16550a6e1d034650abc22effe17573c840;p=mTask.git

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 60fb0a8..f4b0721 100644
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -34,7 +34,7 @@ viewSharesGrid _ [] = viewInformation "No shares yet" [] []
 viewSharesGrid cs sh = (allTasks [watch (getSDSShare m)\\m<-sh] <<@ NoUserInterface)
 	>&^ \st->flip (<<@) NoUserInterface $ whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
 		[{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
-//		>>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
+		>>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
 		@! fromJust mshs
 
 viewShare :: MTaskShare -> Task BCValue