deleteClientByUid :: Int -> Clients -> Clients
deleteClientByUid uid' clients = case uid' `IM.lookup` byUid clients of
    Nothing -> clients
    Just cli -> deleteClient cli clients
deleteClientByUid :: Int -> Clients -> Clients
deleteClientByUid uid' clients = case uid' `IM.lookup` byUid clients of
    Nothing -> clients
    Just cli -> deleteClient cli clients
deleteClientByUid uid' clients = case uid' `IM.lookup` byUid clients of
    Nothing -> clients
    Just cli -> deleteClient cli clients