Commit 1fa29e01 authored by Bas Lijnse's avatar Bas Lijnse

Removed obsolete test

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@695 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 9b0d6369
...@@ -22,23 +22,8 @@ orderProcessingExample ...@@ -22,23 +22,8 @@ orderProcessingExample
, label = "Order processing" , label = "Order processing"
, roles = [] , roles = []
, mainTask = orderPlacement customer >>| return Void , mainTask = orderPlacement customer >>| return Void
},
{ name = "Examples/Test"
, label = "Test"
, roles = []
, mainTask = brokenTask
} }
] ]
brokenTask :: Task Void
brokenTask =
getCurrentUser
>>= \user ->
//Doubly assigned task, first to root then back to current user
(0 @: ("Test assigned task", user.userId @: ("Test assigned task back", updateInformation "Give me a number" 42)))
>>=
showMessageAbout "The magic number is"
orderPlacement :: UserId -> Task Void orderPlacement :: UserId -> Task Void
orderPlacement user = orderPlacement user =
customer @: ( "Order items from shop" customer @: ( "Order items from shop"
......
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