From: Mart Lubbers <mart@martlubbers.net>
Date: Wed, 15 Mar 2017 15:01:19 +0000 (+0100)
Subject: up
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=ae91e169d499a11f5ed3873472aff8e0a06711db;p=mTask.git

up
---

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