X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.dcl;h=563b1fbaafee0be9412b93550f48ffaf61f4c2f7;hb=684c702b39ebd339cb123a24f1f37a63d708e688;hp=47e6647b069aa4df5792f93111fad25529074328;hpb=5f4c4b61ea1e4062e90715af9e1027da6d1c7a66;p=mTask.git

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index 47e6647..563b1fb 100644
--- a/Utils/SDS.dcl
+++ b/Utils/SDS.dcl
@@ -4,13 +4,9 @@ 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]
+deviceStoreNP :: Shared [MTaskDevice]
+deviceStore :: RWShared (Maybe Int) [MTaskDevice] [MTaskDevice]
 bcStateStore :: Shared BCState
 mTaskTaskStore :: Shared [String]
-
-getSDSRecord :: Int -> Task MTaskShare