modularize more

[mTask.git] / Utils / SDS.dcl

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
new file mode 100644 (file)
index 0000000..88f1200
--- /dev/null
+++ b/Utils/SDS.dcl
@@ -0,0 +1,14 @@
+definition module Utils.SDS
+
+import Shares.mTaskShare
+import Devices.mTaskDevice
+import iTasks
+
+derive class iTask MTaskShare
+
+memoryShare :: String a -> Shared a | iTask a
+
+deviceStore :: Shared [MTaskDevice]
+sdsStore :: Shared [MTaskShare]
+bcStateStore :: Shared BCState
+mTaskTaskStore :: Shared [String]