+ | Stdpp.Exc_located (floc, Stream.Error msg) ->
+ send_results (`Error (MooglePp.pp_error "Parse error" msg)) req outchan
+ | Stdpp.Exc_located (floc, exn) ->
+ let msg = Printexc.to_string exn in
+ send_results (`Error (MooglePp.pp_error "Unknown error" msg)) req outchan