From ae91e169d499a11f5ed3873472aff8e0a06711db Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Wed, 15 Mar 2017 16:01:19 +0100 Subject: [PATCH] up --- Shares/mTaskShare.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl index e438a4a..fe65501 100644 --- a/Shares/mTaskShare.icl +++ b/Shares/mTaskShare.icl @@ -11,8 +11,8 @@ from Data.Func import $ derive class iTask MTaskShareType, MTaskShare manageShares :: [MTaskShare] -> Task () -manageShares shares = forever $ - viewSharesGrid shares @! () +manageShares shares = forever $ viewInformation "" [] "" @! () +// viewSharesGrid shares @! () // >&^ \st->whileUnchanged st $ \msh->case msh of // Nothing = viewShares shares -- 2.20.1