X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.dcl;h=6836af11023ff7b50e0683339fff54e8d0835446;hb=ff7049a99f7fdd701d49222019df65a9aee8f05a;hp=b33045a4c09fbfb8de20b4dc983b6de73dca8825;hpb=cf006df4dfd44845b6e5459d81bfe34a187884a9;p=mTask.git

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index b33045a..6836af1 100644
--- a/Utils/SDS.dcl
+++ b/Utils/SDS.dcl
@@ -13,5 +13,5 @@ sdsStore :: Shared [MTaskShare]
 bcStateStore :: Shared BCState
 mTaskTaskStore :: Shared [String]
 
-getSDSStore :: MTaskShare -> Shared Int
+getSDSStore :: MTaskShare -> Shared a | iTask, mTaskType a
 getSDSRecord :: Int -> Task MTaskShare