Merge branch 'master' of gitlab.science:mlubbers/mTask

[mTask.git] / Utils / SDS.dcl

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index 6836af1..a9f1a6c 100644 (file)
--- a/Utils/SDS.dcl
+++ b/Utils/SDS.dcl
@@ -4,14 +4,8 @@ import Shares.mTaskShare
 import Devices.mTaskDevice
 import iTasks
 
-derive class iTask MTaskShare
-
 memoryShare :: String a -> Shared a | iTask a
 
-deviceStore :: Shared [MTaskDevice]
-sdsStore :: Shared [MTaskShare]
-bcStateStore :: Shared BCState
+deviceStoreNP :: Shared [MTaskDevice]
+deviceStore :: RWShared (Maybe (MTaskDevice, Int)) [MTaskDevice] [MTaskDevice]
 mTaskTaskStore :: Shared [String]
-
-getSDSStore :: MTaskShare -> Shared a | iTask, mTaskType a
-getSDSRecord :: Int -> Task MTaskShare