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

add missing begin/end

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