DB: Remote Ticket.status field

src/Vervis/API.hs

@@ -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

src/Vervis/Federation/Ticket.hs

@@ -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

src/Vervis/Handler/Cloth.hs

@@ -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)

src/Vervis/Handler/Ticket.hs

@@ -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)

src/Vervis/Migration.hs

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

th/models

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