X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskCode.icl;h=cca5a6730b00693454ba24e91baa11690003365d;hb=71726cdfddd9dfa11395f10ef3b5af28613fd5a0;hp=410e05e58aa1211a5e268077ade06bdb0cc2503a;hpb=1c8014ff74afb966b891a4689d8ee3e512300746;p=mTask.git

diff --git a/mTaskCode.icl b/mTaskCode.icl
index 410e05e..cca5a67 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -1,7 +1,11 @@
 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 
@@ -619,4 +623,8 @@ instance toCode AnalogPin  where toCode x = consName{|*|} 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