implementation module Tasks.mTaskTask

import mTask
import iTasks

import iTasks._Framework.Serialization

derive class iTask MTaskTask, MTaskInterval, Main, ByteCode, Stmt, Expr, BC, BCState, RWST, Identity

makeTask :: String Int -> Task MTaskTask
makeTask name ident = get currentDateTime 
	@ \dt->{MTaskTask | name=name,ident=ident,dateAdded=dt}