modularize

[mTask.git] / Utils.icl

diff --git a/Utils.icl b/Utils.icl
new file mode 100644 (file)
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