rewrite generation to rws

[mTask.git] / mTaskCode.dcl

diff --git a/mTaskCode.dcl b/mTaskCode.dcl
index 47aff54..91c7038 100644 (file)
--- a/mTaskCode.dcl
+++ b/mTaskCode.dcl
@@ -14,6 +14,7 @@ instance toCode Char
 instance toCode String
 instance toCode DigitalPin
 instance toCode AnalogPin
+instance toCode UserLED
 
 argType :: (((Code a p)->Code b q)->In ((Code a p)->Code b q) (Code c s)) -> a | type a