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