Commit 84c5fe3c authored by Bas Lijnse's avatar Bas Lijnse

Added small examples, for use in presentations.

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@620 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 89637ee3
......@@ -16,6 +16,7 @@ import DelegateTask
import ReviewTask
//Miscellaneous examples
import SmallExamples
import BugReport
import Coffeemachine
import Newsgroups
......@@ -38,6 +39,7 @@ where
, deadlineTaskExample
, delegateTaskExample
, reviewTaskExample
, smallExamples
, bugReportExample
, coffeemachineExample
, newsgroupsExample
......
definition module SmallExamples
import iTasks
smallExamples :: [Workflow]
\ No newline at end of file
implementation module SmallExamples
import iTasks
smallExamples :: [Workflow]
smallExamples = [workflow "Examples/Miscellaneous/calculateSum" calculateSum]
calculateSum :: Task Int
calculateSum
= enterInformation "Enter a number"
>>= \num1 ->
enterInformation "Enter another number"
>>= \num2 ->
let sum = (num1 + num2) in
showMessageAbout "The sum of those numbers is:" sum
>>| return sum
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