rewrite generation to rws

[mTask.git] / Shares / mTaskShare.dcl

diff --git a/Shares/mTaskShare.dcl b/Shares/mTaskShare.dcl
index e3fdd42..6b39448 100644 (file)
--- a/Shares/mTaskShare.dcl
+++ b/Shares/mTaskShare.dcl
@@ -1,8 +1,14 @@
 definition module Shares.mTaskShare
 
+import iTasks
+
 :: MTaskShare = {
-               initValue :: Int,
                withTask :: String,
                identifier :: Int,
+               initVal :: String,
                realShare :: String
        }
+
+instance zero MTaskShare
+
+manageShares :: [MTaskShare] -> Task ()