AllExamples.icl 1.53 KB
Newer Older
1 2 3 4
module AllExamples

import iTasks

5
//Business examples
Bas Lijnse's avatar
Bas Lijnse committed
6
import TravelBooking
7

8 9 10
//Higher order examples
import MovingTask
import DeadlineTask
11
import DelegateTask
Bas Lijnse's avatar
Bas Lijnse committed
12
import ReviewTask
Bas Lijnse's avatar
Bas Lijnse committed
13
import ExceptionHandling
14

15
//Miscellaneous examples
16
import SmallExamples
Bas Lijnse's avatar
Bas Lijnse committed
17
import GUIDemo
ecrombag's avatar
ecrombag committed
18
import BugReport
19
import Coffeemachine
20 21
import APIDocumentation

22
//import Newsgroups
23
import ChangeHandling
24
//import textEditor
25
import CoffeeTime
Steffen Michels's avatar
Steffen Michels committed
26
import Calculator
27
import TableExamples
28
import GeoTracker
29
//import RPCExamples
30

31 32
//Change examples
import SimpleChanges
33

34
//Shared Value Examples
35
import SharedVariables
36

37
//Graphical iTask Notation
38
//import GinExamples
39

40
//Client
41
import WorkflowAdmin
Steffen Michels's avatar
Steffen Michels committed
42

43
Start :: *World -> *World
44
Start world = startEngine (manageWorkflows (workflows ++ workflowmw)) world
45
where
Rinus Plasmeijer's avatar
Rinus Plasmeijer committed
46
	workflows = flatten [ travelBookingExample
47 48
						, movingTaskExample
						, deadlineTaskExample
49
						, delegateTaskExample
Bas Lijnse's avatar
Bas Lijnse committed
50
						, reviewTaskExample
51
						, smallExamples
Bas Lijnse's avatar
Bas Lijnse committed
52
						, guiDemoExample
ecrombag's avatar
ecrombag committed
53
						, bugReportExample
54
						, coffeemachineExample
55
						//, textEditor
56
						, coffeeTimeExample
Steffen Michels's avatar
Steffen Michels committed
57
						, calculatorExample
58
						, tableExamples
59
						, geoTrackerExamples
60
						//, newsgroupsExample
61
						, exceptionHandlingExample
62
						//, changeHandlingExample
63
						, changeExamples
64
						, sharedValueExamples
65 66
						//, rpcExamples
						//, ginExamples
67
						, apiDocumentationExamples
68
						, [restrictedWorkflow "Admin/Users" "Manage users" ["admin"] manageUsers]
Steffen Michels's avatar
Steffen Michels committed
69
						]
70 71
	workflowmw	= [workflow "Manage workflows" "Manage other workflows and instances" (manageWorkflows workflows)]