rewrite generation to rws

[mTask.git] / Shares / mTaskShare.dcl

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