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

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