separated devices

[mTask.git] / Tasks / mTaskTask.dcl

diff --git a/Tasks/mTaskTask.dcl b/Tasks/mTaskTask.dcl
index 2e3458e..3370e4a 100644 (file)
--- 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, 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, Main, ByteCode, Stmt, Expr, BC, BCState
        }
 
 makeTask :: String Int -> Task MTaskTask
+sendTaskToDevice :: String (Main (ByteCode () Stmt)) (MTaskDevice, MTaskInterval) -> Task ()