rewrite generation to rws

[mTask.git] / mTaskCode.icl

diff --git a/mTaskCode.icl b/mTaskCode.icl
index f1da0d8..7ac8aa6 100644 (file)
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -622,4 +622,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