implementation module mTaskCode
-import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray
+import Generics.gdynamic
+import Generics.gCons
+import StdEnv
+
+//import iTasks
+import GenEq, StdMisc, StdArray
import mTask
instance toCode MTask where toCode (MTask x) = "Task " + toCode x
instance toCode Pin where
toCode (Digital p) = toCode p
toCode (Analog p) = toCode p
+instance toCode UserLED where
+ toCode LED1 = toCode 1
+ toCode LED2 = toCode 2
+ toCode LED3 = toCode 3