Commit 25dd89c5 authored by Bruno Guillaume's avatar Bruno Guillaume

catch File_not_found error

parent 75eaf893
......@@ -329,6 +329,7 @@ let init () =
| Resources.Cannot_rewrite msg -> show_error msg
| Libgrew.Error msg -> show_error msg
| Conll_types.Error err -> show_error (Yojson.Basic.to_string err)
| Corpus.File_not_found file -> show_error (sprintf "File not found: \"%s\"" file)
| Libgrew.Bug msg -> show_error (sprintf "Libgrew.bug, please report: %s" msg)
| exc -> show_error (sprintf "Uncaught exception, please report: %s" (Printexc.to_string exc))
end;
......
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