let lookup_buffer = function 
 | Client -> buffers.client_buffer
 | ...
in 
...
?