bindingsWithIdsProjection :: [Lam.BindingWithId CodeDbId] -> Projection
bindingsWithIdsProjection bindingsWithIds = mconcat $ diffTreeProjection <$> diffTrees
  where diffTrees = Lam.bindingDiffTrees (Lam.mapBindingId codeDbIdText <$> bindingsWithIds)
bindingsWithIdsProjection :: [Lam.BindingWithId CodeDbId] -> Projection
bindingsWithIdsProjection bindingsWithIds = mconcat $ diffTreeProjection <$> diffTrees
  where diffTrees = Lam.bindingDiffTrees (Lam.mapBindingId codeDbIdText <$> bindingsWithIds)
bindingsWithIdsProjection bindingsWithIds = mconcat $ diffTreeProjection <$> diffTrees
  where diffTrees = Lam.bindingDiffTrees (Lam.mapBindingId codeDbIdText <$> bindingsWithIds)