Commit 161b1a0f authored by ecrombag's avatar ecrombag

Add instruction tasks to the bug reports

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@940 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 6109b85b
......@@ -60,7 +60,7 @@ reportBugVerySimple
= enterInformation "Please describe the bug you have found"
>>= \report ->
assign (toUserName "bas") NormalPriority Nothing
("Bug Report" @>> showMessageAbout "The following bug has been reported, please fix it." report)
("Bug Report" @>> showInstructionAbout "Fix bug" "The following bug has been reported, please fix it." report)
>>| return report
reportBugSimple :: Task BugReport
......@@ -68,7 +68,7 @@ reportBugSimple
= enterInformation "Please describe the bug you have found"
>>= \report ->
assign (toUserName "bas") NormalPriority Nothing
("Bug Report" @>> showMessageAbout "The following bug has been reported, please fix it." report)
("Bug Report" @>> showInstructionAbout "Fix bug" "The following bug has been reported, please fix it." report)
>>| return report
//Different variant of simple reportBug
......@@ -79,7 +79,7 @@ where
reportBug = enterInformation "Please describe the bug you found"
fixBug :: BugReport -> Task Void
fixBug bug = "bas" @: ("Bug Report", showMessageAbout "Please fix the following bug" bug)
fixBug bug = "bas" @: ("Bug Report", showInstructionAbout "Fix bug" "The following bug has been reported, please fix it." bug)
//Main workflow
reportBug :: Task Void
......@@ -188,10 +188,10 @@ where
= enterInformationAbout "What is the cause of the following bug?" bug
developBugFix :: Bug -> Task Void
developBugFix bug = showMessageAbout "Please implement a fix for the following bug:" bug
developBugFix bug = showInstructionAbout "Bug fix" "Please implement a fix for the following bug:" bug
mergeFixInMainLine :: Bug -> Task Void
mergeFixInMainLine bug = showMessageAbout "Please merge the bugfix in the main line of version control" bug
mergeFixInMainLine bug = showInstructionAbout "Merge" "Please merge the bugfix in the main line of version control" bug
makePatches :: Bug -> Task Void
makePatches bug =
......@@ -201,7 +201,7 @@ makePatches bug =
Just {affectedVersions = []}
= return Void
Just {affectedVersions = versions}
= allTasks [showMessageAbout ("Please make a patch of bugfix " <+++ bug.bugNr <+++
= allTasks [showInstructionAbout "Patch" ("Please make a patch of bugfix " <+++ bug.bugNr <+++
" for the following version of " <+++ bug.Bug.report.application)
version
\\ version <- versions
......
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