iTaskConf2010.icl 722 Bytes
Newer Older
ecrombag's avatar
ecrombag committed
1 2 3
module iTaskConf2010

import iTasks
4 5 6

import Groups, Messaging, Consensus, Lists

ecrombag's avatar
ecrombag committed
7 8 9 10

Start :: !*World -> *World
Start world = startEngine workflows world
where
11
	workflows = [ workflow "Groups" manageGroups
12 13
				, workflow "Ask opinions" askOpinions
				: flatten [ messaging, lists ]
14 15 16 17 18 19 20 21 22 23 24 25 26 27
				]
				
messaging :: [Workflow]
messaging 
	= [ workflow "Messaging/Send a new Message" newMessage 
	  , workflow "Messaging/Send a new Group-Message" newMessageToGroup
	  , workflow "Messaging/View Message Archive" viewArchive
	  ]

lists :: [Workflow]
lists = [ workflow "List Management/New List" newList
		, workflow "List Management/Edit List" editList
		, workflow "List Management/Push List" pushList
		]