Do not print Pervasives
This commit is contained in:
parent
0b12e6a4ae
commit
0b5d1cd471
|
@ -57,6 +57,9 @@ struct
|
||||||
end
|
end
|
||||||
|
|
||||||
let cname_of_qn q =
|
let cname_of_qn q =
|
||||||
|
if q.qual = "Pervasives" then
|
||||||
|
q.name
|
||||||
|
else
|
||||||
(q.qual ^ "__" ^ q.name)
|
(q.qual ^ "__" ^ q.name)
|
||||||
|
|
||||||
let rec struct_name ty =
|
let rec struct_name ty =
|
||||||
|
|
Loading…
Reference in a new issue