diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/interface.mli | 12 | ||||
| -rw-r--r-- | lib/serialize.ml | 26 |
2 files changed, 19 insertions, 19 deletions
diff --git a/lib/interface.mli b/lib/interface.mli index f655921d78..349f7baf98 100644 --- a/lib/interface.mli +++ b/lib/interface.mli @@ -103,14 +103,14 @@ type coq_info = { compile_date : string; } -(** * Coq answers to CoqIde *) +(** Coq messages *) type message_level = -| Debug of string -| Info -| Notice -| Warning -| Error + | Debug of string + | Info + | Notice + | Warning + | Error type message = { message_level : message_level; diff --git a/lib/serialize.ml b/lib/serialize.ml index 9899bae249..0b9cc0a14f 100644 --- a/lib/serialize.ml +++ b/lib/serialize.ml @@ -147,19 +147,19 @@ let expected_answer_type call : value_type = let options = pair_t (list_t string_t) option_state_t in let objs = coq_object_t string_t in match call with - | Interp _ -> check (union_t string_t string_t : interp_rty val_t) - | Rewind _ -> check (int_t : rewind_rty val_t) - | Goal _ -> check (option_t goals_t : goals_rty val_t) - | Evars _ -> check (option_t (list_t evar_t) : evars_rty val_t) - | Hints _ -> check (option_t hints : hints_rty val_t) - | Status _ -> check (state_t : status_rty val_t) - | Search _ -> check (list_t objs : search_rty val_t) - | GetOptions _ -> check (list_t options : get_options_rty val_t) - | SetOptions _ -> check (unit_t : set_options_rty val_t) - | InLoadPath _ -> check (bool_t : inloadpath_rty val_t) - | MkCases _ -> check (list_t (list_t string_t) : mkcases_rty val_t) - | Quit _ -> check (unit_t : quit_rty val_t) - | About _ -> check (coq_info_t : about_rty val_t) + | Interp _ -> check (union_t string_t string_t : interp_rty val_t) + | Rewind _ -> check (int_t : rewind_rty val_t) + | Goal _ -> check (option_t goals_t : goals_rty val_t) + | Evars _ -> check (option_t (list_t evar_t) : evars_rty val_t) + | Hints _ -> check (option_t hints : hints_rty val_t) + | Status _ -> check (state_t : status_rty val_t) + | Search _ -> check (list_t objs : search_rty val_t) + | GetOptions _ -> check (list_t options : get_options_rty val_t) + | SetOptions _ -> check (unit_t : set_options_rty val_t) + | InLoadPath _ -> check (bool_t : inloadpath_rty val_t) + | MkCases _ -> check (list_t (list_t string_t) : mkcases_rty val_t) + | Quit _ -> check (unit_t : quit_rty val_t) + | About _ -> check (coq_info_t : about_rty val_t) (** * XML data marshalling *) |