diff --git a/parser-typechecker/src/U/Codebase/Branch/Diff.hs b/parser-typechecker/src/U/Codebase/Branch/Diff.hs index 028c5ef515..e816daf034 100644 --- a/parser-typechecker/src/U/Codebase/Branch/Diff.hs +++ b/parser-typechecker/src/U/Codebase/Branch/Diff.hs @@ -222,11 +222,10 @@ streamNameChanges namePrefix (TreeDiff (DefinitionDiffs {termDiffs, typeDiffs} : let name = appendName ns in (listifyNames name $ adds diff, listifyNames name $ removals diff) let nameChanges = NameChanges {termNameAdds, termNameRemovals, typeNameAdds, typeNameRemovals} - acc <- f namePrefix nameChanges - -- acc <- - -- if nameChanges == mempty - -- then pure mempty - -- else f namePrefix nameChanges + acc <- + if nameChanges == mempty + then pure mempty + else f namePrefix nameChanges childAcc <- children & ifoldMapM