Commit 638ecf3a authored by Andrei Paskevich's avatar Andrei Paskevich

add missing begin/end

parent 18e27a9a
......@@ -400,7 +400,7 @@ let print_prelude drv fmt =
List.fold_right pr_pr drv.drv_raw.drv_prelude ();
let seen = Hid.create 17 in
let rec print_prel th_name th =
if Hid.mem seen th_name then () else
if Hid.mem seen th_name then () else begin
Hid.add seen th_name ();
Mid.iter print_prel th.th_used;
let prel =
......@@ -408,6 +408,7 @@ let print_prelude drv fmt =
with Not_found -> []
in
List.fold_right pr_pr prel ()
end
in
Mid.iter print_prel drv.drv_used;
fprintf fmt "@."
......
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