Back out "Disable saving of depth on new entities until migration is done"

This backs out commit 3ff6546.

Author: ChrisPenner

src/Share/Postgres/Causal/Queries.hs

@@ -642,10 +642,7 @@ savePgNamespace maySerialized mayBh b@(BranchFull.Branch {terms, types, patches,
             |]
       -- Note: this must be run AFTER inserting the namespace and all its children.
       execute_ [sql| SELECT save_namespace(#{bhId}) |]
-
--- Disabled while migration is running so we don't accidentally get incorrect depths
--- from missing depth dependencies
--- execute_ [sql| SELECT update_namespace_depth(#{bhId}) |]
+      execute_ [sql| SELECT update_namespace_depth(#{bhId}) |]
 
 saveSerializedNamespace :: (QueryM m) => BranchHashId -> CBORBytes TempEntity -> m ()
 saveSerializedNamespace bhId (CBORBytes bytes) = do
@@ -789,9 +786,7 @@ saveCausal maySerializedCausal mayCh bhId ancestorIds = do
         SELECT #{cId}, a.ancestor_id
           FROM ancestors a
       |]
-      -- Disabled while migration is running so we don't accidentally get incorrect depths
-      -- from missing depth dependencies
-      -- execute_ [sql| SELECT update_causal_depth(#{cId}) |]
+      execute_ [sql| SELECT update_causal_depth(#{cId}) |]
       pure cId
 
 saveSerializedCausal :: (QueryM m) => CausalId -> CBORBytes TempEntity -> m ()

src/Share/Postgres/Definitions/Queries.hs

@@ -863,12 +863,10 @@ saveEncodedTermComponent componentHash maySerialized elements = do
             SELECT defn_mappings.term_id, defn_mappings.local_index, defn_mappings.component_hash_id
               FROM defn_mappings
         |]
-      -- Disabled while migration is running so we don't accidentally get incorrect depths
-      -- from missing depth dependencies
-      -- execute_
-      --   [sql|
-      --     SELECT update_component_depth(#{componentHashId})
-      --   |]
+      execute_
+        [sql|
+          SELECT update_component_depth(#{componentHashId})
+        |]
       pure termIds
 
 saveTypeComponent :: ComponentHash -> Maybe TempEntity -> [(PgLocalIds, DeclFormat.Decl Symbol)] -> CodebaseM e ()
@@ -1019,12 +1017,10 @@ saveTypeComponent componentHash maySerialized elements = do
               FROM defn_mappings
         |]
       saveConstructors (zip (toList typeIds) elements)
-      -- Disabled while migration is running so we don't accidentally get incorrect depths
-      -- from missing depth dependencies
-      -- execute_
-      --   [sql|
-      --     SELECT update_component_depth(#{componentHashId})
-      --   |]
+      execute_
+        [sql|
+          SELECT update_component_depth(#{componentHashId})
+        |]
       pure typeIds
 
 -- | Efficiently resolve all pg Ids across selected Local Ids.

src/Share/Postgres/Patches/Queries.hs

@@ -233,9 +233,7 @@ savePatch maySerialized patchHash PatchFull.Patch {termEdits, typeEdits} = do
               LEFT JOIN types to_type
                 ON to_type.component_hash_id = to_type_component_hash_id AND to_type.component_index = to_type_component_index
           |]
-      -- Disabled while migration is running so we don't accidentally get incorrect depths
-      -- from missing depth dependencies
-      -- execute_ [sql| SELECT update_patch_depth(#{patchId}) |]
+      execute_ [sql| SELECT update_patch_depth(#{patchId}) |]
       pure patchId
     termsTable :: [(Maybe ComponentHashId, Maybe Int64 {- from comp index -}, Maybe TextId, Maybe ComponentHashId, Maybe Int64 {- to comp index -}, Maybe TextId, Maybe PatchFullTermEdit.Typing, Bool)]
     constructorsTable :: [(ComponentHashId, Int64 {- from comp index -}, Int64 {- from constr index -}, Maybe ComponentHashId, Maybe Int64 {- to comp index-}, Maybe Int64 {- to constr index -}, Maybe PatchFullTermEdit.Typing, Bool)]