+ (viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical)
+ @! ()
+updateShares :: [MTaskShare] -> Task BCValue
+updateShares shares = anyTask (map updateS shares) <<@ ArrangeWithTabs
+
+updateS :: MTaskShare -> Task BCValue
+updateS sh = flip (<<@) (Title $ toString sh.identifier) $ forever $
+ viewSharedInformation "Current value" [] (getSDSShare sh)
+ ||- (
+ updateSharedInformation "New value" [] (getSDSShare sh)
+ >>= \nv->allTasks (map (sendMessages [MTUpd sh.identifier nv]) sh.withDevice)
+ >>| treturn nv
+ )
+ <<@ ArrangeHorizontal