···

       
140
       
140
       
 
       
        (* Process progress messages if any *)

     

       
141
       
141
       
 
       
        let progress_msg = Context.report_progress ctx 1.0 1.0 in

     

       
142
       
142
       
 
       
        (match progress_msg with

     

       
143
       
143
       
-
       
         | Some msg -> Log.debug "Progress complete notification would be sent here";

     

       
143
       
143
       
+
       
         | Some _msg -> Log.debug "Progress complete notification would be sent here";

     

       
144
       
144
       
 
       
         | None -> ());

     

       
145
       
145
       
 
       
        

     

       
146
       
146
       
 
       
        Some (create_response ~id:req.id ~result)

     
···

       
285
       
285
       
 
       
      ()

     

       
286
       
286
       
 
       
  | exn ->

     

       
287
       
287
       
 
       
      Log.error (Printf.sprintf "Exception while reading: %s" (Printexc.to_string exn));

     

       
288
       
288
       
-
       
      ()
     

       
288
       
288
       
+
       
      ()