update

[mTask.git] / Utils / SDS.dcl

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index b33045a..6836af1 100644 (file)
--- 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