Query_commands
exception No_nodes
val dispatch : Merlin_kernel.Mpipeline.t -> 'a Query_protocol.t -> 'a