update

[mTask.git] / mTask.icl

diff --git a/mTask.icl b/mTask.icl
index 66649d7..9d42d2f 100644 (file)
--- a/mTask.icl
+++ b/mTask.icl
@@ -18,7 +18,7 @@ import Generics.gCons
 import Generics.gdynamic
 
 import iTasks
-import GenEq, StdMisc, StdArray
+import GenEq, StdMisc, StdArray, GenBimap
 import mTaskCode
 import mTaskSerial, mTaskLCD
 
@@ -121,8 +121,9 @@ instance long Eval Long where
 instance == DigitalPin where (==) x y = x === y
 instance == AnalogPin   where (==) x y = x === y
 
-derive consName DigitalPin, AnalogPin, PinMode
-derive consIndex DigitalPin, AnalogPin
+derive gPrint Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+derive class gCons Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+
 
 tab =: toString (repeatn tabSize ' ')
 tabSize :== 2