Give meaningful dev output to seed results

Author: CarsonF

dbschema/seeds/001.funding-accounts.edgeql

@@ -1,15 +1,20 @@
-for fa in {
-  ("Asia - Mainland", 1),
-  ("Africa", 2),
-  ("Asia - Islands", 3),
-  ("Asia - South", 4),
-  ("Americas, Eurasia", 5),
-  ("Pacific", 7)
-}
-union (
-  (select FundingAccount filter .name = fa.0) ??
-  (insert FundingAccount {
-    name := fa.0,
-    accountNumber := fa.1
-  })
-);
+with fundingAccounts := (
+  for fa in {
+    ("Asia - Mainland", 1),
+    ("Africa", 2),
+    ("Asia - Islands", 3),
+    ("Asia - South", 4),
+    ("Americas, Eurasia", 5),
+    ("Pacific", 7)
+  }
+  union (
+    (select FundingAccount filter .name = fa.0) ??
+    (insert FundingAccount {
+      name := fa.0,
+      accountNumber := fa.1
+    })
+  )
+),
+new := (select fundingAccounts filter .createdAt = datetime_of_statement())
+select { `Added Funding Accounts` := (new.accountNumber, new.name) }
+filter count(new) > 0;

dbschema/seeds/002.field-zones-regions.edgeql

@@ -1,6 +1,6 @@
 with
   root := (select RootUser),
-  zones := array_agg((
+  zones := (
     for name in {
       "Americas, Pacific, Eurasia",
       "Africa",
@@ -13,28 +13,38 @@ with
         director := root
       })
     )
-  )),
+  ),
+  new := (select zones filter .createdAt = datetime_of_statement())
+select { `Added Field Zones` := new.name }
+filter count(new) > 0;
+with
+  root := (select RootUser),
   regions := (
-    for region in {
-      ("Americas", zones[0]),
-      ("Pacific", zones[0]),
-      ("Eurasia", zones[0]),
-      ("Africa - Southern", zones[1]),
-      ("Africa - Anglophone East", zones[1]),
-      ("Africa - Sahel", zones[1]),
-      ("Africa - Congo Basin", zones[1]),
-      ("Africa - Anglophone West", zones[1]),
-      ("Asia - Islands", zones[2]),
-      ("Asia - South", zones[2]),
-      ("Asia - Mainland", zones[2]),
+    for item in {
+      (zone := "Americas, Pacific, Eurasia", regions := {"Americas", "Pacific", "Eurasia"}),
+      (zone := "Africa", regions := {
+        "Africa - Southern",
+        "Africa - Anglophone East",
+        "Africa - Sahel",
+        "Africa - Congo Basin",
+        "Africa - Anglophone West"}),
+      (zone := "Asia", regions := {"Asia - Islands", "Asia - South", "Asia - Mainland"})
     }
     union (
-      (select FieldRegion filter .name = region.0) ??
-      (insert FieldRegion {
-        name := region.0,
-        fieldZone := region.1,
-        director := root
-      })
+      with zone := (select FieldZone filter .name = item.zone)
+      select (
+        for region in item.regions
+        union (
+          (select FieldRegion filter .name = region) ??
+          (insert FieldRegion {
+            name := region,
+            fieldZone := zone,
+            director := root
+          })
+        )
+      )
     )
-  )
-select regions;
+  ),
+  new := (select regions filter .createdAt = datetime_of_statement())
+select { `Added Field Regions` := new.name }
+filter count(new) > 0;

dbschema/seeds/003.locations.edgeql

@@ -1615,5 +1615,7 @@ with
         type := Location::Type.Country
       })
     )
-  )
-select locations;
+  ),
+  new := (select locations filter .createdAt = datetime_of_statement())
+select { `Added Locations` := (count(new), array_agg(new.name)[:10] ++ if count(new) > 10 then ['...'] else []) }
+filter count(new) > 0;