update a lot, try to type shares
[mTask.git] / Utils / SDS.dcl
1 definition module Utils.SDS
2
3 import Shares.mTaskShare
4 import Devices.mTaskDevice
5 import iTasks
6
7 derive class iTask MTaskShare
8
9 memoryShare :: String a -> Shared a | iTask a
10
11 deviceStore :: Shared [MTaskDevice]
12 sdsStore :: Shared [MTaskShare]
13 bcStateStore :: Shared BCState
14 mTaskTaskStore :: Shared [String]
15
16 getSDSRecord :: Int -> Task MTaskShare