let pp_assigns_mode fmt config = let str = match config.assigns_filter with | NoAssigns -> "without assigns" | OnlyAssigns -> "only with assigns" | WithAssigns -> "both assigns or not" in Format.fprintf fmt "%s" str