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 ...@@ -60,7 +60,7 @@ reportBugVerySimple
= enterInformation "Please describe the bug you have found" = enterInformation "Please describe the bug you have found"
>>= \report -> >>= \report ->
assign (toUserName "bas") NormalPriority Nothing 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 >>| return report
reportBugSimple :: Task BugReport reportBugSimple :: Task BugReport
...@@ -68,7 +68,7 @@ reportBugSimple ...@@ -68,7 +68,7 @@ reportBugSimple
= enterInformation "Please describe the bug you have found" = enterInformation "Please describe the bug you have found"
>>= \report -> >>= \report ->
assign (toUserName "bas") NormalPriority Nothing 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 >>| return report
//Different variant of simple reportBug //Different variant of simple reportBug
...@@ -79,7 +79,7 @@ where ...@@ -79,7 +79,7 @@ where
reportBug = enterInformation "Please describe the bug you found" reportBug = enterInformation "Please describe the bug you found"
fixBug :: BugReport -> Task Void 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 //Main workflow
reportBug :: Task Void reportBug :: Task Void
...@@ -188,10 +188,10 @@ where ...@@ -188,10 +188,10 @@ where
= enterInformationAbout "What is the cause of the following bug?" bug = enterInformationAbout "What is the cause of the following bug?" bug
developBugFix :: Bug -> Task Void 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 -> 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 -> Task Void
makePatches bug = makePatches bug =
...@@ -201,7 +201,7 @@ makePatches bug = ...@@ -201,7 +201,7 @@ makePatches bug =
Just {affectedVersions = []} Just {affectedVersions = []}
= return Void = return Void
Just {affectedVersions = versions} 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) " for the following version of " <+++ bug.Bug.report.application)
version version
\\ version <- versions \\ 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