implementation module Tasks.mTaskTask

import iTasks

derive class iTask MTaskTask

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