implementation module Utils

import iTasks
import iTasks._Framework.Store
from Data.Func import $

memoryShare :: String a -> Shared a | iTask a
memoryShare s d = sdsFocus s $ memoryStore "" $ Just d