equal
deleted
inserted
replaced
8 sig |
8 sig |
9 val show_brackets: bool Config.T |
9 val show_brackets: bool Config.T |
10 val show_types: bool Config.T |
10 val show_types: bool Config.T |
11 val show_sorts: bool Config.T |
11 val show_sorts: bool Config.T |
12 val show_free_types: bool Config.T |
12 val show_free_types: bool Config.T |
13 val show_all_types: bool Config.T |
|
14 val show_markup: bool Config.T |
13 val show_markup: bool Config.T |
15 val show_structs: bool Config.T |
14 val show_structs: bool Config.T |
16 val show_question_marks: bool Config.T |
15 val show_question_marks: bool Config.T |
17 val pretty_priority: int Config.T |
16 val pretty_priority: int Config.T |
18 end; |
17 end; |
58 |
57 |
59 val show_sorts_raw = Config.declare_option "show_sorts"; |
58 val show_sorts_raw = Config.declare_option "show_sorts"; |
60 val show_sorts = Config.bool show_sorts_raw; |
59 val show_sorts = Config.bool show_sorts_raw; |
61 |
60 |
62 val show_free_types = Config.bool (Config.declare "show_free_types" (fn _ => Config.Bool true)); |
61 val show_free_types = Config.bool (Config.declare "show_free_types" (fn _ => Config.Bool true)); |
63 val show_all_types = Config.bool (Config.declare "show_all_types" (fn _ => Config.Bool false)); |
|
64 |
62 |
65 val show_markup_default = Unsynchronized.ref false; |
63 val show_markup_default = Unsynchronized.ref false; |
66 val show_markup_raw = Config.declare "show_markup" (fn _ => Config.Bool (! show_markup_default)); |
64 val show_markup_raw = Config.declare "show_markup" (fn _ => Config.Bool (! show_markup_default)); |
67 val show_markup = Config.bool show_markup_raw; |
65 val show_markup = Config.bool show_markup_raw; |
68 |
66 |