forge/Vervis
1
0
Fork 0
Code Pull requests Activity

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

Browse source
This commit is contained in:
fr33domlover 2019-06-26 01:37:29 +00:00
parent 07f76d2a6f
commit 9f3e45c113
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Vervis/API.hs
View file

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

1
src/Vervis/Federation/Ticket.hs
View file

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