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 ...@@ -38,6 +38,8 @@ import LaunchFlow
//Shared Value Examples //Shared Value Examples
import SharedVariables import SharedVariables
//Ad-hoc work extensions
import Groups, Lists, Messages, Consensus
Start :: *World -> *World Start :: *World -> *World
Start world = startEngine workflows world Start world = startEngine workflows world
...@@ -65,4 +67,9 @@ where ...@@ -65,4 +67,9 @@ where
, launchFlow , launchFlow
] ]
, sharedValueExamples , 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 implementation module Consensus
import iTasks, GenEq import iTasks, GenEq
import CommonDomain, Messaging, Groups import CommonDomain, Messages, Groups
derive bimap Maybe, (,) derive bimap Maybe, (,)
......
definition module Messaging definition module Messages
import iTasks import iTasks
......
implementation module Messaging implementation module Messages
import iTasks import iTasks
import CommonDomain 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