When Accepting an Offer{Ticket}, automatically add author as ticket follower

src/Vervis/API.hs

@@ -672,6 +672,7 @@ offerTicketC shrUser summary audience offer@(Offer ticket uTarget) = runExceptT
                     , ticketAuthorLocalOffer  = obiid
                     }
                 insertMany_ $ map (TicketDependency tid) tidsDeps
+                insert_ $ Follow pidAuthor fsid False
             publishAccept pidAuthor sid jid fsid luOffer num obiid doc = do
                 now <- liftIO getCurrentTime
                 remotesHttp <- do

src/Vervis/Federation/Ticket.hs

@@ -321,6 +321,7 @@ projectOfferTicketF
                     , ticketAuthorRemoteOffer  = ractid
                     }
                 insertMany_ $ map (TicketDependency tid) deps
+                insert_ $ RemoteFollow raidAuthor fsid False
                 return $ Just (ractid, next, obiidAccept, docAccept)
 
     deliverLocal