diff options
| author | gareuselesinge | 2013-04-25 14:14:08 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-04-25 14:14:08 +0000 |
| commit | c4f8385b91d464e8ad0cf826eb02e4a34bbb6f15 (patch) | |
| tree | b956eaea1f23a855fbad223888b62459770663a0 /lib | |
| parent | 7c56058bad50c783a24bfa2d7adf5e257198303a (diff) | |
Fix indentation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16450 85f007b7-540e-0410-9357-904b9bb8a0f7
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 *) |