X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=b505ee8876c5f38bcdcf7dbd54e011bba1381de0;hb=4d5f3a126218768cf63fc693a095dd42247aa2c9;hp=bb4c33eb5b6b7d6dce011b49f446f0109ba23a92;hpb=f63e9891ef344e992a8a837cd3301ba3209f1e5c;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index bb4c33e..b505ee8 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -18,9 +18,9 @@ from Data.Func import $
 import Data.List
 from Text import class Text(join,toUpperCase), instance Text String
 
-derive consIndex BC
-derive consName BC
-derive conses BC, AnalogPin
+derive consIndex BC, Pin
+derive consName BC, Pin
+derive conses BC, AnalogPin, DigitalPin, Pin
 
 (<+) infixr 5 :: a b -> String | toString a & toString b
 (<+) a b = toString a +++ toString b