ppx: fixed bug showing up in toplevel

pveber · Feb 9, 2019 · 37af461 · 37af461
1 parent 5233c2b
commit 37af461
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ppx/ppx_bistro.ml b/ppx/ppx_bistro.ml
@@ -127,7 +127,7 @@ let rec replace_body new_body = function
 let default_descr var =
   Printf.sprintf
     "%s.%s"
-    (Caml.Filename.(chop_extension (basename !L.input_name)))
+    Caml.Filename.(remove_extension (basename !L.input_name))
     var
 
 let str_item_rewriter ~loc ~path:_ descr version var expr =