X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;fp=Shares%2FmTaskShare.icl;h=7ae47e195b4578bccb4473ca838309f1e7e6f985;hb=14589b218e5796e4a85f2a73b440a25848ebe747;hp=f4b0721fe410669ef527d9f492dda8af4fe8937a;hpb=de76c5f5ac6a0c4291b51d5b2c16e3611b5c99e3;p=mTask.git diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl index f4b0721..7ae47e1 100644 --- a/Shares/mTaskShare.icl +++ b/Shares/mTaskShare.icl @@ -15,6 +15,7 @@ manageShares :: [MTaskShare] -> Task () manageShares shares = withShared Nothing $ \cs->forever $ (viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical) @! () + updateShares :: [MTaskShare] -> Task BCValue updateShares shares = anyTask (map updateS shares) <<@ ArrangeWithTabs