Commit 31babaa5 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

remove the "_meta" sublevel in compile

parent f41d997b
......@@ -191,15 +191,12 @@ let grep () = handle
let compile () =
handle
(fun () ->
let grew_match = match !Grew_args.grew_match_server with
| Some dir -> Some (Filename.concat dir "_meta")
| None -> None in
List.iter
(fun json_file ->
let corpus_desc_list = Corpus_desc.load_json json_file in
List.iter
(fun corpus_desc ->
Corpus_desc.compile ~force:!Grew_args.force ?grew_match corpus_desc
Corpus_desc.compile ~force:!Grew_args.force ?grew_match:!Grew_args.grew_match_server corpus_desc
) corpus_desc_list
) !Grew_args.input_data
) ()
......
Supports Markdown
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