DB: Remember whether a Bundle came from person input or auto-generated

src/Vervis/API.hs

@@ -2900,7 +2900,7 @@ offerTicketC (Entity senderPersonID senderPerson) senderActor summary audience t
                 for_ maybeOriginBranch $ \ (mlu, b) ->
                     insert_ $ MergeOriginRemoteBranch originID mlu b
         for_ (justThere originOrBundle) $ \ (Material typ diffs) -> do
-            bundleID <- insert $ Bundle clothID
+            bundleID <- insert $ Bundle clothID False
             insertMany_ $ NE.toList $ NE.reverse $
                 NE.map (Patch bundleID now typ) diffs
         route <- ClothR <$> encodeKeyHashid loomID <*> encodeKeyHashid clothID
@@ -3013,7 +3013,7 @@ offerTicketC (Entity senderPersonID senderPerson) senderActor summary audience t
                             generateGitPatches targetPath (T.unpack targetBranch) originURI (T.unpack originBranch)
         now <- liftIO getCurrentTime
         lift $ runDB $ do
-            bundleID <- insert $ Bundle clothID
+            bundleID <- insert $ Bundle clothID True
             insertMany_ $ NE.toList $ NE.map (Patch bundleID now PatchMediaTypeGit) $ NE.reverse patches
 
 {-

src/Vervis/Migration.hs

@@ -2700,6 +2700,8 @@ changes hLocal ctx =
                     TL.toStrict . TLB.toLazyText . HED.htmlEncodedText $
                         ticket495Title ticket
             update ticketID [Ticket495Title =. plain]
+      -- 496
+    , addFieldPrimRequired "Bundle" False "auto"
     ]
 
 migrateDB

th/models

@@ -485,6 +485,7 @@ TicketAuthorRemote
 
 Bundle
     ticket TicketLoomId
+    auto   Bool
 
 Patch
     bundle  BundleId