X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FExamples.dcl;h=e689081ee3f8b2d08d06e2e6a2ede1577d32989d;hb=a81623aa9629a3c5c8f8bf920e494a596b30c4b7;hp=f3a8a3a38fbc2395de2b48df06dc049cc29f0f43;hpb=5f4c4b61ea1e4062e90715af9e1027da6d1c7a66;p=mTask.git diff --git a/Tasks/Examples.dcl b/Tasks/Examples.dcl index f3a8a3a..e689081 100644 --- a/Tasks/Examples.dcl +++ b/Tasks/Examples.dcl @@ -3,10 +3,14 @@ definition module Tasks.Examples from Data.Map import :: Map import mTask +pinShare :: Main (ByteCode () Stmt) +faculty :: Int -> Main (ByteCode () Stmt) countAndLed :: Main (ByteCode () Stmt) blink :: UserLED -> Main (ByteCode () Stmt) +count :: Main (ByteCode () Stmt) blinkShare :: Main (ByteCode () Stmt) ledtOn :: UserLED -> Main (ByteCode () Stmt) ledtOff :: UserLED -> Main (ByteCode () Stmt) +readDPin :: DigitalPin -> Main (ByteCode () Stmt) allmTasks :: Map String (Task (Main (ByteCode () Stmt)))