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