Commit 3ce7d50a authored by Thomas van Noort's avatar Thomas van Noort

Improved the labels to be more descriptive

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@344 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 50fdb5e2
......@@ -25,7 +25,7 @@ orderPlacement user =
user @:> ( "Order items from shop"
, orderItemsFromShop -&&- fillInAndCheckCreditCard createDefault
) =>> \(basket, cardInfo) ->
user @:> ( "Confirm order"
user @:> ( "Order confirmation"
, confirmOrder
) #>>
bank @:> ("Cash request"
......@@ -35,7 +35,7 @@ orderPlacement user =
(storage @:> ( "Deliver order"
, deliverOrder basket (deliveryAddress cardInfo)
) #>>
user @:> ( "Delivery confirmed"
user @:> ( "Delivery confirmation"
, confirmDelivery basket (deliveryAddress cardInfo)
)
)
......
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