File ocaml-ppx_inline_test.patch of Package ocaml-ppx_inline_test

https://github.com/janestreet/ppx_inline_test/pull/39
--- a/src/ppx_inline_test.ml
+++ b/src/ppx_inline_test.ml
@@ -82,7 +82,7 @@ let rec short_desc_of_expr ~max_len e =
 ;;
 
 let descr ~(loc:Location.t) ?(inner_loc=loc) e_opt id_opt =
-  let filename  = File_path.get_default_path loc                 in
+  let filename  = loc.loc_start.pos_fname                        in
   let line      = loc.loc_start.pos_lnum                         in
   let start_pos = loc.loc_start.pos_cnum - loc.loc_start.pos_bol in
   let end_pos   = inner_loc.Location.loc_end.pos_cnum - loc.loc_start.pos_bol in