let
set_shard shard logger =
{logger
with
lshard = shard}