X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.dcl;h=17e2a9c9608a07a16bb19545f77c38e4f7cc8ea8;hb=778d5d97bc6f8a0f37d59177301348a960079e13;hp=702045179d908a4bd18e5d13bcb8e927d46ecf63;hpb=7fec7868123d56d410e807042cb3e031ebda12b9;p=mTask.git

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index 7020451..17e2a9c 100644
--- a/Utils/SDS.dcl
+++ b/Utils/SDS.dcl
@@ -4,14 +4,8 @@ import Shares.mTaskShare
 import Devices.mTaskDevice
 import iTasks
 
-derive class iTask MTaskShare, BCState
-
 memoryShare :: String a -> Shared a | iTask a
 
 deviceStore :: Shared [MTaskDevice]
-sdsStore :: Shared [MTaskShare]
 bcStateStore :: Shared BCState
 mTaskTaskStore :: Shared [String]
-
-getSDSStore :: MTaskShare -> Shared Int
-getSDSRecord :: Int -> Task MTaskShare