repositories
/
clean-tests.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a9
[clean-tests.git]
/
new-layouts
/
test.icl
diff --git
a/new-layouts/test.icl
b/new-layouts/test.icl
index
7718e4b
..
d1b288b
100644
(file)
--- a/
new-layouts/test.icl
+++ b/
new-layouts/test.icl
@@
-2,22
+2,12
@@
module test
import iTasks
import iTasks
-Start w = startEngine (
t1 -|| t2 -|| t3 -|| t4
) w
+Start w = startEngine (
viewInformation () [] v
) w
-:: Field = {field :: String}
-:: Type1 = {fields :: [Field]}
-:: Type2 = Type Int [Field]
-:: Type3 :== [Field]
-derive class iTask Field, Type1, Type2
+derive class iTask B, C
-t1 :: Task Type1
-t1 = enterInformation () []
+v :: B
+v = B2 C2
-t2 :: Task Type2
-t2 = enterInformation () []
-
-t3 :: Task Type3
-t3 = enterInformation () []
-
-t4 :: Task (Type2, Type3)
-t4 = enterInformation () []
+:: B = B1 | B2 C
+:: C = C1 Int | C2