Commit ef9825c9 authored by Bas Lijnse's avatar Bas Lijnse

Always using name from workflow catalog for newly started workflows.

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@1148 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 85f1f6d7
......@@ -77,9 +77,11 @@ workflow path task =
{ Workflow
| path = path
, roles = []
, thread = createThread task
, thread = createThread (task <<@ Subject name)
}
where
name = last (split "/" path)
restrictedWorkflow :: !String ![Role] !(Task a) -> Workflow | iTask a
restrictedWorkflow path roles task =
{ Workflow
......
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