Commit ca9b7922 authored by Andrei Paskevich's avatar Andrei Paskevich

fix --debug-all

parent 0d68f2e1
......@@ -127,7 +127,7 @@ module Args = struct
let set_flags_selected () =
if !opt_debug_all then
List.iter
(fun (s,f,_,_) -> if not (is_info_flag s) then set_flag f)
(fun (s,f,_,_) -> if is_info_flag s then set_flag f)
(list_flags ());
Queue.iter (fun flag -> let flag = lookup_flag flag in set_flag flag)
opt_list_flags;
......
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