Commit 5dda1686 authored by Bas Lijnse's avatar Bas Lijnse

Renamed "Messaging" to "Messages" for consistency. Moved Ad-hoc stuff to AllExamples.

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@1177 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 3dee5684
......@@ -38,6 +38,8 @@ import LaunchFlow
//Shared Value Examples
import SharedVariables
//Ad-hoc work extensions
import Groups, Lists, Messages, Consensus
Start :: *World -> *World
Start world = startEngine workflows world
......@@ -65,4 +67,9 @@ where
, launchFlow
]
, sharedValueExamples
, [workflow "General/View groups" manageGroups
,workflow "General/View lists" manageLists
,workflow "General/View messages" manageMessages
,workflow "General/Ask opinions" askOpinions
]
]
\ No newline at end of file
[{"userName":"janine","password":["Password","j"],"displayName":"Janine Jackson","roles":null},{"userName":"bert","password":["Password","b"],"displayName":"Bert vd Wielen","roles":null},{"userName":"jim","password":["Password","j"],"displayName":"Jim Bakker","roles":null},{"userName":"martin","password":["Password","m"],"displayName":"Martin Tegelaar","roles":["IT Support","AV Service"]},{"userName":"jaqueline","password":["Password","j"],"displayName":"Jaqueline Havelaar","roles":["Catering"]},{"userName":"mirjam","password":["Password","m"],"displayName":"Mirjam Mulders","roles":["Secretary"]},{"userName":"sjaak","password":["Password","s"],"displayName":"Sjaak Polak","roles":["Program Committee"]},{"userName":"hans","password":["Password","h"],"displayName":"Hans Koopmans","roles":["Program Committee"]},{"userName":"janwillem","password":["Password","j"],"displayName":"Jan Willem Beentjes","roles":["Program Committee","Chair"]}]
\ No newline at end of file
module iTaskConf2010
import iTasks
import Groups, Lists, Messaging, Consensus
Start :: !*World -> *World
Start world = startEngine workflows world
where
workflows = [ workflow "View groups" manageGroups
, workflow "View lists" manageLists
, workflow "View messages" manageMessages
, workflow "Ask opinions" askOpinions
]
\ No newline at end of file
implementation module Consensus
import iTasks, GenEq
import CommonDomain, Messaging, Groups
import CommonDomain, Messages, Groups
derive bimap Maybe, (,)
......
definition module Messaging
definition module Messages
import iTasks
......
implementation module Messaging
implementation module Messages
import iTasks
import CommonDomain
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment