let
pp_loc fmt =
function
|
Mloc
l
->
M
.pp_loc fmt l
|
Path
p
->
pp_path fmt p