X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=c4dadfb7e41277fa87f6249b465fceebbdfd04b9;hb=5fc9fc4e888f8a481fc66986a6389d4307ca9668;hp=fe684633ddaea88aafafd66a07817dc3b1f9b5c4;hpb=8221c3559e4d4a1be6fac0f9f81af2cc1beed9e9;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index fe68463..c4dadfb 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -34,9 +34,11 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi
 	| OnInterrupt Int
 
 :: MTaskDeviceSpec =
-		{haveLed :: Bool
-		,haveAio :: Bool
-		,haveDio :: Bool
+		{haveLed     :: Bool
+		,haveAio     :: Bool
+		,haveDio     :: Bool
+		,aPins       :: Int
+		,dPins       :: Int
 		,bytesMemory :: Int
 	}