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 postTopReply
hLocal hLocal
[ProjectR shr prj] [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) (TicketR shr prj num)
(TicketDiscussionR shr prj num) (TicketDiscussionR shr prj num)
(const $ TicketR shr prj num) (const $ TicketR shr prj num)
@ -801,7 +804,10 @@ postTicketMessageR shr prj num mkhid = do
postReply postReply
hLocal hLocal
[ProjectR shr prj] [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) (TicketR shr prj num)
(TicketReplyR shr prj num . encodeHid) (TicketReplyR shr prj num . encodeHid)
(TicketMessageR shr prj num . encodeHid) (TicketMessageR shr prj num . encodeHid)