X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.dcl;h=785af5d601882d006f66be4018fdc68444a7c934;hb=a2df77cbda43d5a24eeb8ac7db7452baae9f18aa;hp=b33045a4c09fbfb8de20b4dc983b6de73dca8825;hpb=cf006df4dfd44845b6e5459d81bfe34a187884a9;p=mTask.git diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl index b33045a..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 - 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