14 lines
449 B
OCaml
14 lines
449 B
OCaml
let fetch ?clean (origin: Schema.schema): Schema.schema =
|
|
let config = Lexer.read origin.meta.defaults.paths.configuration
|
|
|> Lexer.scan
|
|
|> List.concat
|
|
|> Parser.parse
|
|
in
|
|
|
|
if Option.value clean ~default:false then {
|
|
Schema.origin with input = {
|
|
origin.input with configuration = {
|
|
origin.input.configuration with main = config
|
|
}
|
|
}
|
|
} else Parser.apply origin config
|