DB, S2S: Factory: Record set of allowed types

src/Vervis/Actor/Factory.hs

@@ -138,6 +138,13 @@ factoryCreateNew new now factoryMeID (Verse authorIdMsig body) detail = do
             (newLocalResource, launchNewActor, sendInit, newResourceID) <-
                 insertNewActor now name msummary createDB actorMeID
 
+            -- Verify this actor type is enabled
+            let allow NADeck = factoryAllowDeck
+                allow NAProject = factoryAllowProject
+                allow NATeam = factoryAllowTeam
+            unless (allow new factoryMe) $
+                throwE "I don't support this actor type"
+
             -- Prepare forwarding the Create to my followers
             factoryHash <- encodeKeyHashid factoryMeID
             let sieve =

src/Vervis/Actor/Person/Client.hs

@@ -531,7 +531,10 @@ clientCreateFactory now personMeID (ClientMsg maybeCap localRecips remoteRecips
         Entity aid a <- insertActor now name (fromMaybe "" msummary) (Left (LocalActorPerson personMeID, actorMeID, obiidCreate))
         rid <- insert $ Resource aid
         fid <- insert Factory
-            { factoryResource = rid
+            { factoryResource     = rid
+            , factoryAllowDeck    = True
+            , factoryAllowProject = True
+            , factoryAllowTeam    = True
             }
         return (fid, rid, actorFollowers a)
 

src/Vervis/Migration.hs

@@ -3926,6 +3926,12 @@ changes hLocal ctx =
     , removeField "Group" "create"
       -- 664
     , removeField "Factory" "create"
+      -- 665
+    , addFieldPrimRequired "Factory" True "allowDeck"
+      -- 666
+    , addFieldPrimRequired "Factory" True "allowProject"
+      -- 667
+    , addFieldPrimRequired "Factory" True "allowTeam"
     ]
 
 migrateDB

th/models

@@ -182,7 +182,10 @@ Komponent
     UniqueKomponent resource
 
 Factory
-    resource ResourceId
+    resource     ResourceId
+    allowDeck    Bool
+    allowProject Bool
+    allowTeam    Bool
 
     UniqueFactory       resource