memoryShare :: String a -> Shared a | iTask a
-deviceStore :: Shared [MTaskDevice]
-bcStateStore :: Shared BCState
+deviceStoreNP :: Shared [MTaskDevice]
+deviceStore :: RWShared (Maybe (MTaskDevice, Int)) [MTaskDevice] [MTaskDevice]
mTaskTaskStore :: Shared [String]