From d039e976dcfebdd914caaa64e0f83143a65644ca Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 12 Sep 2019 11:13:55 +0200
Subject: [PATCH] test

---
 test.icl | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/test.icl b/test.icl
index 5da2a7b..600f4d6 100644
--- a/test.icl
+++ b/test.icl
@@ -32,8 +32,26 @@ module test
 //		@! 42
 //	)] []
 
+//import iTasks
+//Start w = doTasks t w
+//where
+//	t = viewInformation [ViewUsing id progressBar] (Just 80, Just long) <<@ Title "bork"
+//	long = "borkueaohutenhuaostuehasunethuaosnuhtesuhaotsuehtausneohtusoauhtesauhtesnuhtasuhetauhosunehtoauesnhtaueshautesnhutaonsuhetaonsuhetansuhetansuhetaosnuehtaosnuhetaosunhaoetsunehatounsoehtasunhteunaoshuteoasnuhteaosuhnaoetsnuheotasunehotasunhetusnahotueaou"
+
+
 import iTasks
-Start w = doTasks t w
-where
-	t = viewInformation [ViewUsing id progressBar] (Just 80, Just "bork")
-		<<@ Title "bork"
+
+:: R = { x :: !String, y :: !String }
+derive class iTask R
+
+Start w = doTasks (t -&&- u) w
+
+t = updateSharedInformation
+	[ UpdateSharedAs
+		(\r -> r.x)
+		(\r x -> {r & x=x})
+		const
+	] s
+u = updateSharedInformation [] s
+
+s = sharedStore "x" {x="",y=""}
-- 
2.20.1