AllExamples.icl 1.42 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 23
//import Newsgroups
//import textEditor
24
import CoffeeTime
Steffen Michels's avatar
Steffen Michels committed
25
import Calculator
26
import TableExamples
27
import GeoTracker
28
//import RPCExamples
29

30
//Shared Value Examples
31
import SharedVariables
32

33
//Graphical iTask Notation
34
//import GinExamples
35

36
//Client
37
import WorkflowAdmin
Steffen Michels's avatar
Steffen Michels committed
38

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