X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTask.icl;h=9d42d2faa0dee73bca5a1e869cb2b5a241183871;hb=497a31ebe6922b1b9f889450f5830f1ca1c4bb59;hp=66649d7a861dd30c0e476ea5e02187ebe6854bd3;hpb=0781ce1e845d7ec4bd06a39105d5d0d68835c693;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