1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 16:24:52 +09:00

Address project followers when posting ticket comment in regular UI

This commit is contained in:
fr33domlover 2019-06-30 02:23:58 +00:00
parent d8da1f2abf
commit 4b045118f9

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)