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