X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTask.icl;h=9d42d2faa0dee73bca5a1e869cb2b5a241183871;hb=ff7049a99f7fdd701d49222019df65a9aee8f05a;hp=66649d7a861dd30c0e476ea5e02187ebe6854bd3;hpb=1d6cedaf81bbbe0ae869f20c9003bf018fb027ff;p=mTask.git

diff --git a/mTask.icl b/mTask.icl
index 66649d7..9d42d2f 100644
--- 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