X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=Tasks%2FmTaskTask.dcl;h=0beddf281cebe49c50e3845760ee5f1f356e8e81;hb=0403d4e20b0d43efad9b17bb9f51d53559aad738;hp=0a89129ac7085c6a71d282622cd7c33eb98d4135;hpb=526e9fec79086ef2a701420736cf89a6191cc13c;p=mTask.git

diff --git a/Tasks/mTaskTask.dcl b/Tasks/mTaskTask.dcl
index 0a89129..0beddf2 100644
--- a/Tasks/mTaskTask.dcl
+++ b/Tasks/mTaskTask.dcl
@@ -1,8 +1,10 @@
 definition module Tasks.mTaskTask
 
+import Devices.mTaskDevice
+import mTask
 import iTasks
 
-derive class iTask MTaskTask
+derive class iTask MTaskTask, MTaskInterval, Main, ByteCode, Stmt, Expr, BC, BCState, RWST
 
 :: MTaskTask = {
 		name :: String,
@@ -11,3 +13,4 @@ derive class iTask MTaskTask
 	}
 
 makeTask :: String Int -> Task MTaskTask
+sendTaskToDevice :: String (Main (ByteCode a Stmt)) (MTaskDevice, MTaskInterval) -> Task ()