X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FmTaskTask.dcl;h=3370e4a7f546439f6858f0b5ec6ceedeac4b908e;hb=de76c5f5ac6a0c4291b51d5b2c16e3611b5c99e3;hp=ef46243b5a5036812171d7eca737c2b06d798d62;hpb=acd239b3f29e215ade0b63d5b26b6cf8e8ae0d63;p=mTask.git

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