Commit f7391ad9 authored by Mário Pereira's avatar Mário Pereira

Extraction: cosmetic

parent 6babfc4a
......@@ -100,8 +100,8 @@ module Print = struct
let s = sanitizer s in
let s = if is_ocaml_keyword s then s ^ "_renamed" else s in (* FIXME *)
let fname = if lp = [] then info.info_fname else None in
let m = Strings.capitalize (module_name ?fname lp t) in
fprintf fmt "%s.%s" m s
let m = Strings.capitalize (module_name ?fname lp t) in
fprintf fmt "%s.%s" m s
with Not_found ->
let s = id_unique ~sanitizer iprinter id in
fprintf fmt "%s" s
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment