Skip to content

Commit

Permalink
Stdlib.All use separate Require commands
Browse files Browse the repository at this point in the history
That way when we get an error or warning we can see which Require
produced it by looking at the generated file.
  • Loading branch information
SkySkimmer committed Dec 16, 2024
1 parent 152172c commit 400f718
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions stdlib/tools/gen_all.ml
Original file line number Diff line number Diff line change
Expand Up @@ -12,8 +12,6 @@ let from = "Stdlib"

let () = Printf.printf "Set Warnings \"-deprecated-library-file,-warn-library-file\".\n\n"

let () = Printf.printf "From %s Require\n" from

let logical_concat prefix f =
let f = Filename.remove_extension f in
match prefix with
Expand All @@ -40,7 +38,7 @@ let rec traverse todo todo' = match todo, todo' with
let () =
if Filename.extension path = ".v" &&
logical <> "All"
then Printf.printf " %s\n" logical
then Printf.printf "From %s Require Export %s.\n" from logical
in
todo'
| _ -> todo'
Expand All @@ -49,4 +47,4 @@ let rec traverse todo todo' = match todo, todo' with

let () = traverse [".", ""] []

let () = Printf.printf ".\n%!"
let () = Printf.printf "%!"

0 comments on commit 400f718

Please sign in to comment.