Commit d23aeb6c authored by Bruno Guillaume's avatar Bruno Guillaume

catch Conll errors

parent b2991a49
......@@ -26,6 +26,7 @@ let fail msg =
let handle fct () =
try fct ()
with
| Conll_types.Error json -> fail (Yojson.Basic.pretty_to_string json)
| Libgrew.Error msg -> fail msg
| Corpus.File_not_found file -> fail (sprintf "File not found: \"%s\"" file)
| Corpus.Fail msg -> fail msg
......
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