X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils.icl;fp=Utils.icl;h=3a9be2c243ecb9fcde0c3d0460188d26179923c8;hb=00fec1dc0792381759d7cfbfb55f17996a11f1a4;hp=0000000000000000000000000000000000000000;hpb=4f2bcb0778dca37ec53ebd6ca087554c19672849;p=mTask.git

diff --git a/Utils.icl b/Utils.icl
new file mode 100644
index 0000000..3a9be2c
--- /dev/null
+++ b/Utils.icl
@@ -0,0 +1,8 @@
+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