Commit 4e2c03fc authored by bguillaum's avatar bguillaum
Browse files

catche Conll exception

git-svn-id: svn+ssh:// 7838e531-6607-4d57-9587-6c381814729c
parent 84a10501
......@@ -47,6 +47,8 @@ let handle ?(name="") ?(file="No file defined") fct () =
| Grew_base.Error.Bug (msg, loc_opt) -> raise (Bug (msg,loc_opt))
| Grew_base.Error.Run (msg, loc_opt) -> raise (Run (msg,loc_opt))
| Conll.Error msg -> raise (Parsing_err (msg,None))
| exc -> raise (Bug (sprintf "[Libgrew.%s] UNCAUGHT EXCEPTION: %s" name (Printexc.to_string exc), None))
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