| OnInterrupt Int
:: MTaskDeviceSpec =
- {haveLed :: Bool
- ,haveAio :: Bool
- ,haveDio :: Bool
+ {haveLed :: Bool
+ ,haveAio :: Bool
+ ,haveDio :: Bool
+ ,aPins :: Int
+ ,dPins :: Int
+ ,stackSize :: Int
,bytesMemory :: Int
}
}
:: BCState = {
- freshl :: [Int],
- freshs :: [Int],
+ freshl :: Int,
+ freshs :: Int,
sdss :: [BCShare]
}
instance zero BCState