Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
grew
libcaml-grew
Commits
57c97b32
Commit
57c97b32
authored
May 09, 2017
by
Bruno Guillaume
Browse files
change conll error type
parent
382b7d81
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/libgrew.ml
View file @
57c97b32
...
...
@@ -42,7 +42,7 @@ let handle ?(name="") ?(file="No file defined") fct () =
|
Grew_base
.
Error
.
Build
(
msg
,
None
)
->
raise
(
Error
(
sprintf
"%s"
msg
))
|
Grew_base
.
Error
.
Run
(
msg
,
Some
loc
)
->
raise
(
Error
(
sprintf
"%s %s"
(
Grew_base
.
Loc
.
to_string
loc
)
msg
))
|
Grew_base
.
Error
.
Run
(
msg
,
None
)
->
raise
(
Error
(
sprintf
"%s"
msg
))
|
Conll_types
.
Error
msg
->
raise
(
Error
(
sprintf
"Conll error: %s"
msg
))
|
Conll_types
.
Error
msg
->
raise
(
Error
(
sprintf
"Conll error: %s"
(
Yojson
.
Basic
.
to_string
msg
))
)
|
Grew_base
.
Error
.
Bug
(
msg
,
Some
loc
)
->
raise
(
Bug
(
sprintf
"%s %s"
(
Grew_base
.
Loc
.
to_string
loc
)
msg
))
|
Grew_base
.
Error
.
Bug
(
msg
,
None
)
->
raise
(
Bug
(
sprintf
"%s"
msg
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment