update

[mTask.git] / mTask.dcl

diff --git a/mTask.dcl b/mTask.dcl
index ac9405c..e8f62f2 100644 (file)
--- a/mTask.dcl
+++ b/mTask.dcl
@@ -14,6 +14,7 @@ todo:
        imporove setp: >>*.
 */
 
+import GenPrint
 import Generics.gCons
 import Generics.gdynamic
 
@@ -212,13 +213,12 @@ instance long Eval Long
 
 // ----- tools ----- //
 
-derive consName DigitalPin, AnalogPin, PinMode
+derive gPrint Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+derive class gCons Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
 
 instance == DigitalPin
 instance == AnalogPin
 
-derive consIndex DigitalPin, AnalogPin
-
 tab =: toString (repeatn tabSize ' ')
 tabSize :== 2