forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Address project followers when posting ticket comment in regular UI

Browse source
This commit is contained in:
fr33domlover 2019-06-30 02:23:58 +00:00
parent d8da1f2abf
commit 4b045118f9
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Vervis/Handler/Ticket.hs
View file

@ -783,7 +783,10 @@ postTicketDiscussionR shr prj num = do
postTopReply
hLocal
[ProjectR shr prj]
[TicketParticipantsR shr prj num, TicketTeamR shr prj num]
[ ProjectFollowersR shr prj
, TicketParticipantsR shr prj num
, TicketTeamR shr prj num
]
(TicketR shr prj num)
(TicketDiscussionR shr prj num)
(const $ TicketR shr prj num)
@ -801,7 +804,10 @@ postTicketMessageR shr prj num mkhid = do
postReply
hLocal
[ProjectR shr prj]
[TicketParticipantsR shr prj num, TicketTeamR shr prj num]
[ ProjectFollowersR shr prj
, TicketParticipantsR shr prj num
, TicketTeamR shr prj num
]
(TicketR shr prj num)
(TicketReplyR shr prj num . encodeHid)
(TicketMessageR shr prj num . encodeHid)