Utils.icl

   1 implementation module Utils
   2
   3 import iTasks
   4 import iTasks._Framework.Store
   5 from Data.Func import $
   6
   7 memoryShare :: String a -> Shared a | iTask a
   8 memoryShare s d = sdsFocus s $ memoryStore "" $ Just d