X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FExamples.icl;h=b2a79de52baa9dfe21483d13f2b387c0650abee5;hb=497a31ebe6922b1b9f889450f5830f1ca1c4bb59;hp=7d872efff6b4d4c61ef24bcf2956f503b6ed4386;hpb=1e4c58b59800c21747181bb0c437c6cc47c47dec;p=mTask.git diff --git a/Tasks/Examples.icl b/Tasks/Examples.icl index 7d872ef..b2a79de 100644 --- a/Tasks/Examples.icl +++ b/Tasks/Examples.icl @@ -3,9 +3,10 @@ implementation module Tasks.Examples import qualified Data.Map as DM import mTask +import Devices.mTaskDevice import iTasks._Framework.Serialization -derive class iTask UserLED, Main, ByteCode, Stmt, BC, BCState +derive class iTask UserLED countAndLed :: Main (ByteCode () Stmt) countAndLed = sds \x=1 In sds \pinnetje=1 In {main =