X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.dcl;h=785af5d601882d006f66be4018fdc68444a7c934;hb=a81623aa9629a3c5c8f8bf920e494a596b30c4b7;hp=702045179d908a4bd18e5d13bcb8e927d46ecf63;hpb=7fec7868123d56d410e807042cb3e031ebda12b9;p=mTask.git diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl index 7020451..785af5d 100644 --- a/Utils/SDS.dcl +++ b/Utils/SDS.dcl @@ -4,8 +4,6 @@ import Shares.mTaskShare import Devices.mTaskDevice import iTasks -derive class iTask MTaskShare, BCState - memoryShare :: String a -> Shared a | iTask a deviceStore :: Shared [MTaskDevice] @@ -13,5 +11,4 @@ sdsStore :: Shared [MTaskShare] bcStateStore :: Shared BCState mTaskTaskStore :: Shared [String] -getSDSStore :: MTaskShare -> Shared Int getSDSRecord :: Int -> Task MTaskShare