replaceClient :: Client -> Client -> Clients -> Clients
replaceClient old new = insertClient new . deleteClient old
replaceClient :: Client -> Client -> Clients -> Clients
replaceClient old new = insertClient new . deleteClient old
replaceClient old new = insertClient new . deleteClient old