Commit 6e01b355 authored by Bruno Guillaume's avatar Bruno Guillaume

Uncaught exception

parent 17d2619c
......@@ -330,6 +330,7 @@ let init () =
| 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)
| Corpus.Fail msg -> show_error (sprintf "Fail to load corpus: \"%s\"" msg)
| 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