X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskCode.icl;h=cca5a6730b00693454ba24e91baa11690003365d;hb=09b207a39b7791098daafd7d87c3ad9d3db3e19f;hp=f1da0d8109d6b0a8ad52cc2f5f7cdabacff515ec;hpb=0781ce1e845d7ec4bd06a39105d5d0d68835c693;p=mTask.git

diff --git a/mTaskCode.icl b/mTaskCode.icl
index f1da0d8..cca5a67 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -2,8 +2,9 @@ implementation module mTaskCode
 
 import Generics.gdynamic
 import Generics.gCons
+import StdEnv
 
-import iTasks
+//import iTasks
 import GenEq, StdMisc, StdArray
 import mTask
 
@@ -622,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