From 4b045118f965ff5a2c203a546628882e32056513 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 30 Jun 2019 02:23:58 +0000
Subject: [PATCH] Address project followers when posting ticket comment in
 regular UI

---
 src/Vervis/Handler/Ticket.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/Vervis/Handler/Ticket.hs b/src/Vervis/Handler/Ticket.hs
index db5ac40..9b7f757 100644
--- a/src/Vervis/Handler/Ticket.hs
+++ b/src/Vervis/Handler/Ticket.hs
@@ -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)