shares are now lenses

[mTask.git] / Utils / SDS.dcl

diff --git a/Utils/SDS.dcl b/Utils/SDS.dcl
index 563b1fb..b6a2ede 100644 (file)
--- a/Utils/SDS.dcl
+++ b/Utils/SDS.dcl
@@ -7,6 +7,6 @@ import iTasks
 memoryShare :: String a -> Shared a | iTask a
 
 deviceStoreNP :: Shared [MTaskDevice]
-deviceStore :: RWShared (Maybe Int) [MTaskDevice] [MTaskDevice]
+deviceStore :: RWShared (Maybe (MTaskDevice, Int)) [MTaskDevice] [MTaskDevice]
 bcStateStore :: Shared BCState
 mTaskTaskStore :: Shared [String]