forge/Vervis
1
0
Fork 0
Code Pull requests Activity

In C2S Offer{Ticket} on local project, insert a TicketUnderProject record

Browse source
This commit is contained in:
fr33domlover 2020-02-23 15:38:22 +00:00
parent f6903364f4
commit ca0c7124c1
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Vervis/API.hs
View file

@ -1140,16 +1140,20 @@ offerTicketC shrUser summary audience offer@(Offer ticket uTarget) = runExceptT
, localTicketDiscuss = did , localTicketDiscuss = did
, localTicketFollowers = fsid , localTicketFollowers = fsid
} }
insert_ TicketProjectLocal tplid <- insert TicketProjectLocal
{ ticketProjectLocalTicket = tid { ticketProjectLocalTicket = tid
, ticketProjectLocalProject = jid , ticketProjectLocalProject = jid
, ticketProjectLocalAccept = obiidAccept , ticketProjectLocalAccept = obiidAccept
} }
insert_ TicketAuthorLocal talid <- insert TicketAuthorLocal
{ ticketAuthorLocalTicket = ltid { ticketAuthorLocalTicket = ltid
, ticketAuthorLocalAuthor = pidAuthor , ticketAuthorLocalAuthor = pidAuthor
, ticketAuthorLocalOpen = obiid , ticketAuthorLocalOpen = obiid
} }
insert_ TicketUnderProject
{ ticketUnderProjectProject = tplid
, ticketUnderProjectAuthor = talid
}
--insertMany_ $ map (TicketDependency tid) tidsDeps --insertMany_ $ map (TicketDependency tid) tidsDeps
-- insert_ $ Follow pidAuthor fsid False True -- insert_ $ Follow pidAuthor fsid False True
return ltid return ltid