sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 17:34:52 +09:00
Code Issues Activity

DB: Remote Ticket.status field

Browse source
This commit is contained in:
fr33domlover 2022-10-20 15:41:47 +00:00
parent b0e4656723
commit fa7f765e2e
6 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/API.hs
View file

@ -708,7 +708,6 @@ applyC (Entity senderPersonID senderPerson) senderActor maybeCap localRecips rem
{ ticketResolveLocalTicket = trid
, ticketResolveLocalActivity = applyID
}
update ticketID [TicketStatus =. TSClosed]
prepareAccept luApply actors stages = do
encodeRouteHome <- getEncodeRouteHome
@ -2354,7 +2353,6 @@ offerTicketC (Entity senderPersonID senderPerson) senderActor maybeCap localReci
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID

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

@ -425,7 +425,6 @@ deckOfferTicketF now recipDeckHash author body mfwd luOffer ticket uTarget = do
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID
@ -734,7 +733,6 @@ loomOfferTicketF now recipLoomHash author body mfwd luOffer ticket uTarget = do
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID
@ -1256,7 +1254,6 @@ loomApplyF now recipLoomHash author body mfwd luApply apply = (,Nothing) <$> do
, ticketResolveRemoteActivity = applyID
, ticketResolveRemoteActor = remoteAuthorId author
}
update ticketID [TicketStatus =. TSClosed]
prepareAccept clothID = do
encodeRouteHome <- getEncodeRouteHome

3
src/Vervis/Handler/Cloth.hs
View file

@ -356,10 +356,13 @@ getClothR loomHash clothHash = do
cIrrelevant <- newIdent
let relevant filt =
bool cIrrelevant cRelevant $
{-
case ticketStatus ticket of
TSNew -> wffNew filt
TSTodo -> wffTodo filt
TSClosed -> wffClosed filt
-}
True
let followButton =
followW
(ClothFollowR loomHash clothHash)

3
src/Vervis/Handler/Ticket.hs
View file

@ -291,10 +291,13 @@ getTicketR deckHash ticketHash = do
cIrrelevant <- newIdent
let relevant filt =
bool cIrrelevant cRelevant $
{-
case ticketStatus ticket of
TSNew -> wffNew filt
TSTodo -> wffTodo filt
TSClosed -> wffClosed filt
-}
True
let followButton =
followW
(TicketFollowR deckHash ticketHash)

2
src/Vervis/Migration.hs
View file

@ -2931,6 +2931,8 @@ changes hLocal ctx =
"CollabFulfillsInvite"
-- 528
, addUnique' "CollabRecipRemoteAccept" "Invite" ["invite"]
-- 529
, removeField "Ticket" "status"
]
migrateDB

1
th/models
View file

@ -395,7 +395,6 @@ Ticket
title Text
source PandocMarkdown
description HTML
status TicketStatus
discuss DiscussionId
followers FollowerSetId
accept OutboxItemId