| REJECTED => "Rejected"
fun notifyMod {old, new, changer, req} =
- notify (fn (_, mail) =>
+ if old = new then
+ notify (fn (_, mail) =>
(Mail.mwrite (mail, changer);
- Mail.mwrite (mail, " has changed the status of this request from ");
- Mail.mwrite (mail, statusToString old);
- Mail.mwrite (mail, " to ");
- Mail.mwrite (mail, statusToString new);
- Mail.mwrite (mail, ".\n\n"))) req
+ Mail.mwrite (mail, " has added a comment to this request.\n\n"))) req
+ else
+ notify (fn (_, mail) =>
+ (Mail.mwrite (mail, changer);
+ Mail.mwrite (mail, " has changed the status of this request from ");
+ Mail.mwrite (mail, statusToString old);
+ Mail.mwrite (mail, " to ");
+ Mail.mwrite (mail, statusToString new);
+ Mail.mwrite (mail, ".\n\n"))) req
end