Created
October 27, 2023 12:26
-
-
Save Julow/230e1e240453137f8cbcc5072e75c47a to your computer and use it in GitHub Desktop.
Changes in the output of `@docgen` caused by https://github.com/ocaml/odoc/pull/1031
This file has been truncated, but you can view the full file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/html_master/odoc/source/src/document/ML.ml.html b/html_1031/odoc/source/src/document/ML.ml.html | |
| index 3d334e001..e065a39ad 100644 | |
| --- a/html_master/odoc/source/src/document/ML.ml.html | |
| +++ b/html_1031/odoc/source/src/document/ML.ml.html | |
| @@ -107,98 +107,98 @@ | |
| </span><span class="EOL"> | |
| </span><span id="module-ML"><span class="MODULE">module</span> <span class="UIDENT">ML</span> <span class="EQUAL">=</span> <span class="UIDENT">Generator</span><span class="DOT">.</span><span class="UIDENT">Make</span> <span class="LPAREN">(</span><span class="STRUCT">struct</span><span class="EOL"> | |
| </span> <span id="def_6"><span class="MODULE">module</span> <span class="UIDENT">Obj</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_1"><span class="LIDENT">close_tag_closed</span></span> <span class="EQUAL">=</span> <span class="STRING">" >"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_1"><span id="local_close_tag_closed_48"><span class="LIDENT">close_tag_closed</span></span></span> <span class="EQUAL">=</span> <span class="STRING">" >"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_2"><span class="LIDENT">close_tag_extendable</span></span> <span class="EQUAL">=</span> <span class="STRING">".. >"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_2"><span id="local_close_tag_extendable_49"><span class="LIDENT">close_tag_extendable</span></span></span> <span class="EQUAL">=</span> <span class="STRING">".. >"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_3"><span class="LIDENT">field_separator</span></span> <span class="EQUAL">=</span> <span class="STRING">"; "</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_3"><span id="local_field_separator_50"><span class="LIDENT">field_separator</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"; "</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_4"><span class="LIDENT">open_tag_closed</span></span> <span class="EQUAL">=</span> <span class="STRING">"< "</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_4"><span id="local_open_tag_closed_51"><span class="LIDENT">open_tag_closed</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"< "</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_5"><span class="LIDENT">open_tag_extendable</span></span> <span class="EQUAL">=</span> <span class="STRING">"< "</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_5"><span id="local_open_tag_extendable_52"><span class="LIDENT">open_tag_extendable</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"< "</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_32"><span class="MODULE">module</span> <span class="UIDENT">Type</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_7"><span class="LIDENT">annotation_separator</span></span> <span class="EQUAL">=</span> <span class="STRING">" : "</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_7"><span id="local_annotation_separator_53"><span class="LIDENT">annotation_separator</span></span></span> <span class="EQUAL">=</span> <span class="STRING">" : "</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_8"><span class="LIDENT">handle_params</span></span> <span class="LIDENT">name</span> <span class="LIDENT">args</span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="LIDENT">args</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="LIDENT">name</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_8"><span id="local_handle_params_54"><span class="LIDENT">handle_params</span></span></span> <span id="local_name_55"><span class="LIDENT">name</span></span> <span id="local_args_56"><span class="LIDENT">args</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#local_args_56"><span class="LIDENT">args</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_name_55"><span class="LIDENT">name</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_9"><span class="LIDENT">handle_constructor_params</span></span> <span class="EQUAL">=</span> <span class="LIDENT">handle_params</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_9"><span id="local_handle_constructor_params_57"><span class="LIDENT">handle_constructor_params</span></span></span> <span class="EQUAL">=</span> <a href="#def_8"><span class="LIDENT">handle_params</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_10"><span class="LIDENT">handle_substitution_params</span></span> <span class="LIDENT">name</span> <span class="LIDENT">args</span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="LIDENT">args</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="LIDENT">name</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_10"><span id="local_handle_substitution_params_58"><span class="LIDENT">handle_substitution_params</span></span></span> <span id="local_name_59"><span class="LIDENT">name</span></span> <span id="local_args_60"><span class="LIDENT">args</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#local_args_60"><span class="LIDENT">args</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_name_59"><span class="LIDENT">name</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_11"><span class="LIDENT">handle_format_params</span></span> <span class="LIDENT">p</span> <span class="EQUAL">=</span> <span class="LIDENT">p</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_11"><span id="local_handle_format_params_61"><span class="LIDENT">handle_format_params</span></span></span> <span id="local_p_62"><span class="LIDENT">p</span></span> <span class="EQUAL">=</span> <a href="#local_p_62"><span class="LIDENT">p</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_12"><span class="LIDENT">type_def_semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_12"><span id="local_type_def_semicolon_63"><span class="LIDENT">type_def_semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_13"><span class="LIDENT">private_keyword</span></span> <span class="EQUAL">=</span> <span class="STRING">"private"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_13"><span id="local_private_keyword_64"><span class="LIDENT">private_keyword</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"private"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_14"><span class="LIDENT">parenthesize_constructor</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_14"><span id="local_parenthesize_constructor_65"><span class="LIDENT">parenthesize_constructor</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_16"><span class="MODULE">module</span> <span class="UIDENT">Variant</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_15"><span class="LIDENT">parenthesize_params</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_15"><span id="local_parenthesize_params_66"><span class="LIDENT">parenthesize_params</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_19"><span class="MODULE">module</span> <span class="UIDENT">Tuple</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_17"><span class="LIDENT">element_separator</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"* "</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_17"><span id="local_element_separator_67"><span class="LIDENT">element_separator</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"* "</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_18"><span class="LIDENT">always_parenthesize</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_18"><span id="local_always_parenthesize_68"><span class="LIDENT">always_parenthesize</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_21"><span class="MODULE">module</span> <span class="UIDENT">Record</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_20"><span class="LIDENT">field_separator</span></span> <span class="EQUAL">=</span> <span class="STRING">";"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_20"><span id="local_field_separator_69"><span class="LIDENT">field_separator</span></span></span> <span class="EQUAL">=</span> <span class="STRING">";"</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_22"><span class="LIDENT">var_prefix</span></span> <span class="EQUAL">=</span> <span class="STRING">"'"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_22"><span id="local_var_prefix_70"><span class="LIDENT">var_prefix</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"'"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_23"><span class="LIDENT">any</span></span> <span class="EQUAL">=</span> <span class="STRING">"_"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_23"><span id="local_any_71"><span class="LIDENT">any</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"_"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_24"><span class="LIDENT">arrow</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LABEL">~attr:</span><span class="STRING">"arrow"</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">entity</span> <span class="STRING">"#45"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">entity</span> <span class="STRING">"gt"</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_24"><span id="local_arrow_72"><span class="LIDENT">arrow</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LABEL">~attr:</span><span class="STRING">"arrow"</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">entity</span> <span class="STRING">"#45"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">entity</span> <span class="STRING">"gt"</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_26"><span class="MODULE">module</span> <span class="UIDENT">Exception</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_25"><span class="LIDENT">semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_25"><span id="local_semicolon_73"><span class="LIDENT">semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_28"><span class="MODULE">module</span> <span class="UIDENT">GADT</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_27"><span class="LIDENT">arrow</span></span> <span class="EQUAL">=</span> <span class="LIDENT">arrow</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_27"><span id="local_arrow_74"><span class="LIDENT">arrow</span></span></span> <span class="EQUAL">=</span> <a href="#def_24"><span class="LIDENT">arrow</span></a><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_31"><span class="MODULE">module</span> <span class="UIDENT">External</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_29"><span class="LIDENT">semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_29"><span id="local_semicolon_75"><span class="LIDENT">semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_30"><span class="LIDENT">handle_primitives</span></span> <span class="LIDENT">prims</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LIDENT">p</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <span class="LPAREN">(</span><span class="STRING">"\""</span> <span class="INFIXOP1">^</span> <span class="LIDENT">p</span> <span class="INFIXOP1">^</span> <span class="STRING">"\" "</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LIDENT">prims</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_30"><span id="local_handle_primitives_76"><span class="LIDENT">handle_primitives</span></span></span> <span id="local_prims_77"><span class="LIDENT">prims</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_p_78"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <span class="LPAREN">(</span><span class="STRING">"\""</span> <span class="INFIXOP1">^</span> <a href="#local_p_78"><span class="LIDENT">p</span></a> <span class="INFIXOP1">^</span> <span class="STRING">"\" "</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <a href="#local_prims_77"><span class="LIDENT">prims</span></a><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_39"><span class="MODULE">module</span> <span class="UIDENT">Mod</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_33"><span class="LIDENT">open_tag</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"sig"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_33"><span id="local_open_tag_79"><span class="LIDENT">open_tag</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"sig"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_34"><span class="LIDENT">close_tag</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_34"><span id="local_close_tag_80"><span class="LIDENT">close_tag</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_35"><span class="LIDENT">close_tag_semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_35"><span id="local_close_tag_semicolon_81"><span class="LIDENT">close_tag_semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_36"><span class="LIDENT">include_semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_36"><span id="local_include_semicolon_82"><span class="LIDENT">include_semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_37"><span class="LIDENT">functor_keyword</span></span> <span class="EQUAL">=</span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_37"><span id="local_functor_keyword_83"><span class="LIDENT">functor_keyword</span></span></span> <span class="EQUAL">=</span> <span class="TRUE">true</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_38"><span class="LIDENT">functor_contraction</span></span> <span class="EQUAL">=</span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_38"><span id="local_functor_contraction_84"><span class="LIDENT">functor_contraction</span></span></span> <span class="EQUAL">=</span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_42"><span class="MODULE">module</span> <span class="UIDENT">Class</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_40"><span class="LIDENT">open_tag</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"object"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_40"><span id="local_open_tag_85"><span class="LIDENT">open_tag</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"object"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_41"><span class="LIDENT">close_tag</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_41"><span id="local_close_tag_86"><span class="LIDENT">close_tag</span></span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_45"><span class="MODULE">module</span> <span class="UIDENT">Value</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_43"><span class="LIDENT">variable_keyword</span></span> <span class="EQUAL">=</span> <span class="STRING">"val"</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_43"><span id="local_variable_keyword_87"><span class="LIDENT">variable_keyword</span></span></span> <span class="EQUAL">=</span> <span class="STRING">"val"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_44"><span class="LIDENT">semicolon</span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_44"><span id="local_semicolon_88"><span class="LIDENT">semicolon</span></span></span> <span class="EQUAL">=</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="def_47"><span class="MODULE">module</span> <span class="UIDENT">Comment</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="def_46"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><span class="STRING">"(*"</span><span class="COMMA">,</span> <span class="STRING">"*)"</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="def_46"><span id="local_markers_89"><span class="LIDENT">markers</span></span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><span class="STRING">"(*"</span><span class="COMMA">,</span> <span class="STRING">"*)"</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="END">end</span><span class="RPAREN">)</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| diff --git a/html_master/odoc/source/src/document/codefmt.ml.html b/html_1031/odoc/source/src/document/codefmt.ml.html | |
| index 96c78a1ab..e8add8450 100644 | |
| --- a/html_master/odoc/source/src/document/codefmt.ml.html | |
| +++ b/html_1031/odoc/source/src/document/codefmt.ml.html | |
| @@ -232,7 +232,7 @@ | |
| <a id="L231" class="source_line" href="#L231">231</a> | |
| <a id="L232" class="source_line" href="#L232">232</a> | |
| <a id="L233" class="source_line" href="#L233">233</a> | |
| -</code><code class="source_code"><span><span id="local_*opt*_56"></span><span id="local_*sth*_58"></span><span class="OPEN">open</span><span class="BANG">!</span> <span class="UIDENT">Compat</span><span class="EOL"> | |
| +</code><code class="source_code"><span><span id="local_*sth*_57"></span><span class="OPEN">open</span><span class="BANG">!</span> <span class="UIDENT">Compat</span><span class="EOL"> | |
| </span><span class="OPEN">open</span> <span class="UIDENT">Types</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span id="type-out"><span class="TYPE">type</span> <span class="LIDENT">out</span> <span class="EQUAL">=</span> <span class="UIDENT">Source</span><span class="DOT">.</span><span class="LIDENT">t</span></span><span class="EOL"> | |
| @@ -427,40 +427,40 @@ end | |
| </span> <a href="#local_f_53"><span class="LIDENT">f</span></a> <a href="#local_ppf_55"><span class="LIDENT">ppf</span></a><span class="SEMI">;</span><span class="EOL"> | |
| </span> <a href="#local_g_54"><span class="LIDENT">g</span></a> <a href="#local_ppf_55"><span class="LIDENT">ppf</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-span"><span class="LIDENT">span</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_attr_57"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_58"><span class="STRING">""</span></a><span class="RPAREN">)</span> <span id="local_f_59"><span class="LIDENT">f</span></span> <span id="local_ppf_60"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_60"><span class="LIDENT">ppf</span></a> <span class="STRING">"@{<%s>%t@}"</span> <a href="#local_attr_57"><span class="LIDENT">attr</span></a> <a href="#local_f_59"><span class="LIDENT">f</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-span"><span class="LIDENT">span</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_attr_56"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_57"><span class="STRING">""</span></a><span class="RPAREN">)</span> <span id="local_f_58"><span class="LIDENT">f</span></span> <span id="local_ppf_59"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_59"><span class="LIDENT">ppf</span></a> <span class="STRING">"@{<%s>%t@}"</span> <a href="#local_attr_56"><span class="LIDENT">attr</span></a> <a href="#local_f_58"><span class="LIDENT">f</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-txt"><span class="LIDENT">txt</span></span> <span id="local_s_61"><span class="LIDENT">s</span></span> <span id="local_ppf_62"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Format</span><span class="DOT">.</span><span class="LIDENT">pp_print_string</span> <a href="#local_ppf_62"><span class="LIDENT">ppf</span></a> <a href="#local_s_61"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-txt"><span class="LIDENT">txt</span></span> <span id="local_s_60"><span class="LIDENT">s</span></span> <span id="local_ppf_61"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Format</span><span class="DOT">.</span><span class="LIDENT">pp_print_string</span> <a href="#local_ppf_61"><span class="LIDENT">ppf</span></a> <a href="#local_s_60"><span class="LIDENT">s</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-noop"><span class="LIDENT">noop</span></span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span> <span class="COLON">:</span> <span class="UIDENT">Format</span><span class="DOT">.</span><span class="LIDENT">formatter</span><span class="RPAREN">)</span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-break"><span class="LIDENT">break</span></span> <span id="local_i_63"><span class="LIDENT">i</span></span> <span id="local_j_64"><span class="LIDENT">j</span></span> <span id="local_ppf_65"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Format</span><span class="DOT">.</span><span class="LIDENT">pp_print_break</span> <a href="#local_ppf_65"><span class="LIDENT">ppf</span></a> <a href="#local_i_63"><span class="LIDENT">i</span></a> <a href="#local_j_64"><span class="LIDENT">j</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-break"><span class="LIDENT">break</span></span> <span id="local_i_62"><span class="LIDENT">i</span></span> <span id="local_j_63"><span class="LIDENT">j</span></span> <span id="local_ppf_64"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Format</span><span class="DOT">.</span><span class="LIDENT">pp_print_break</span> <a href="#local_ppf_64"><span class="LIDENT">ppf</span></a> <a href="#local_i_62"><span class="LIDENT">i</span></a> <a href="#local_j_63"><span class="LIDENT">j</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-cut"><span class="LIDENT">cut</span></span> <span class="EQUAL">=</span> <a href="#val-break"><span class="LIDENT">break</span></a> <span class="INT">0</span> <span class="INT">0</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-sp"><span class="LIDENT">sp</span></span> <span class="EQUAL">=</span> <a href="#val-break"><span class="LIDENT">break</span></a> <span class="INT">1</span> <span class="INT">0</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span class="REC">rec</span> <span id="val-list"><span class="LIDENT">list</span></span> <span class="QUESTION">?</span><span id="local_sep_66"><span class="LIDENT">sep</span></span> <span class="TILDE">~</span><span id="local_f_67"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span class="REC">rec</span> <span id="val-list"><span class="LIDENT">list</span></span> <span class="QUESTION">?</span><span id="local_sep_65"><span class="LIDENT">sep</span></span> <span class="TILDE">~</span><span id="local_f_66"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#val-noop"><span class="LIDENT">noop</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_x_68"><span class="LIDENT">x</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_f_67"><span class="LIDENT">f</span></a> <a href="#local_x_68"><span class="LIDENT">x</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_x_69"><span class="LIDENT">x</span></span> <span class="COLONCOLON">::</span> <span id="local_xs_70"><span class="LIDENT">xs</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_hd_71"><span class="LIDENT">hd</span></span> <span class="EQUAL">=</span> <a href="#local_f_67"><span class="LIDENT">f</span></a> <a href="#local_x_69"><span class="LIDENT">x</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_tl_72"><span class="LIDENT">tl</span></span> <span class="EQUAL">=</span> <a href="#val-list"><span class="LIDENT">list</span></a> <span class="QUESTION">?</span><a href="#local_sep_66"><span class="LIDENT">sep</span></a> <span class="TILDE">~</span><a href="#local_f_67"><span class="LIDENT">f</span></a> <a href="#local_xs_70"><span class="LIDENT">xs</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_sep_66"><span class="LIDENT">sep</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <a href="#local_hd_71"><span class="LIDENT">hd</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_tl_72"><span class="LIDENT">tl</span></a> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_sep_73"><span class="LIDENT">sep</span></span> <span class="MINUSGREATER">-></span> <a href="#local_hd_71"><span class="LIDENT">hd</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_sep_73"><span class="LIDENT">sep</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_tl_72"><span class="LIDENT">tl</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_x_67"><span class="LIDENT">x</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_f_66"><span class="LIDENT">f</span></a> <a href="#local_x_67"><span class="LIDENT">x</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_x_68"><span class="LIDENT">x</span></span> <span class="COLONCOLON">::</span> <span id="local_xs_69"><span class="LIDENT">xs</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_hd_70"><span class="LIDENT">hd</span></span> <span class="EQUAL">=</span> <a href="#local_f_66"><span class="LIDENT">f</span></a> <a href="#local_x_68"><span class="LIDENT">x</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_tl_71"><span class="LIDENT">tl</span></span> <span class="EQUAL">=</span> <a href="#val-list"><span class="LIDENT">list</span></a> <span class="QUESTION">?</span><a href="#local_sep_65"><span class="LIDENT">sep</span></a> <span class="TILDE">~</span><a href="#local_f_66"><span class="LIDENT">f</span></a> <a href="#local_xs_69"><span class="LIDENT">xs</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_sep_65"><span class="LIDENT">sep</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <a href="#local_hd_70"><span class="LIDENT">hd</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_tl_71"><span class="LIDENT">tl</span></a> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_sep_72"><span class="LIDENT">sep</span></span> <span class="MINUSGREATER">-></span> <a href="#local_hd_70"><span class="LIDENT">hd</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_sep_72"><span class="LIDENT">sep</span></a> <a href="#val-(++)"><span class="INFIXOP2">++</span></a> <a href="#local_tl_71"><span class="LIDENT">tl</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-box_hv"><span class="LIDENT">box_hv</span></span> <span id="local_t_74"><span class="LIDENT">t</span></span> <span id="local_ppf_75"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_75"><span class="LIDENT">ppf</span></a> <span class="STRING">"@[<hv 2>%t@]"</span> <a href="#local_t_74"><span class="LIDENT">t</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-box_hv"><span class="LIDENT">box_hv</span></span> <span id="local_t_73"><span class="LIDENT">t</span></span> <span id="local_ppf_74"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_74"><span class="LIDENT">ppf</span></a> <span class="STRING">"@[<hv 2>%t@]"</span> <a href="#local_t_73"><span class="LIDENT">t</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-box_hv_no_indent"><span class="LIDENT">box_hv_no_indent</span></span> <span id="local_t_76"><span class="LIDENT">t</span></span> <span id="local_ppf_77"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_77"><span class="LIDENT">ppf</span></a> <span class="STRING">"@[<hv 0>%t@]"</span> <a href="#local_t_76"><span class="LIDENT">t</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-box_hv_no_indent"><span class="LIDENT">box_hv_no_indent</span></span> <span id="local_t_75"><span class="LIDENT">t</span></span> <span id="local_ppf_76"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_76"><span class="LIDENT">ppf</span></a> <span class="STRING">"@[<hv 0>%t@]"</span> <a href="#local_t_75"><span class="LIDENT">t</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-render"><span class="LIDENT">render</span></span> <span id="local_f_78"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <a href="#val-spf"><span class="LIDENT">spf</span></a> <span class="STRING">"@[<hv 2>%t@]"</span> <span class="LPAREN">(</span><a href="#val-span"><span class="LIDENT">span</span></a> <a href="#local_f_78"><span class="LIDENT">f</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-render"><span class="LIDENT">render</span></span> <span id="local_f_77"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <a href="#val-spf"><span class="LIDENT">spf</span></a> <span class="STRING">"@[<hv 2>%t@]"</span> <span class="LPAREN">(</span><a href="#val-span"><span class="LIDENT">span</span></a> <a href="#local_f_77"><span class="LIDENT">f</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-code"><span class="LIDENT">code</span></span> <span class="QUESTION">?</span><span id="local_attr_79"><span class="LIDENT">attr</span></span> <span id="local_f_80"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="QUESTION">?</span><a href="#local_attr_79"><span class="LIDENT">attr</span></a> <span class="INFIXOP1">@@</span> <span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_80"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-code"><span class="LIDENT">code</span></span> <span class="QUESTION">?</span><span id="local_attr_78"><span class="LIDENT">attr</span></span> <span id="local_f_79"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="QUESTION">?</span><a href="#local_attr_78"><span class="LIDENT">attr</span></a> <span class="INFIXOP1">@@</span> <span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_79"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-documentedSrc"><span class="LIDENT">documentedSrc</span></span> <span id="local_f_81"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Code</span> <span class="LPAREN">(</span><a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_81"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-documentedSrc"><span class="LIDENT">documentedSrc</span></span> <span id="local_f_80"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Code</span> <span class="LPAREN">(</span><a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_80"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-codeblock"><span class="LIDENT">codeblock</span></span> <span class="QUESTION">?</span><span id="local_attr_82"><span class="LIDENT">attr</span></span> <span id="local_f_83"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="QUESTION">?</span><a href="#local_attr_82"><span class="LIDENT">attr</span></a> <span class="INFIXOP1">@@</span> <span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">default_lang_tag</span><span class="COMMA">,</span> <a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_83"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-codeblock"><span class="LIDENT">codeblock</span></span> <span class="QUESTION">?</span><span id="local_attr_81"><span class="LIDENT">attr</span></span> <span id="local_f_82"><span class="LIDENT">f</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="QUESTION">?</span><a href="#local_attr_81"><span class="LIDENT">attr</span></a> <span class="INFIXOP1">@@</span> <span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">default_lang_tag</span><span class="COMMA">,</span> <a href="#val-render"><span class="LIDENT">render</span></a> <a href="#local_f_82"><span class="LIDENT">f</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-keyword"><span class="LIDENT">keyword</span></span> <span id="local_keyword_84"><span class="LIDENT">keyword</span></span> <span id="local_ppf_85"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_85"><span class="LIDENT">ppf</span></a> <span class="STRING">"@{<keyword>%s@}"</span> <a href="#local_keyword_84"><span class="LIDENT">keyword</span></a><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-keyword"><span class="LIDENT">keyword</span></span> <span id="local_keyword_83"><span class="LIDENT">keyword</span></span> <span id="local_ppf_84"><span class="LIDENT">ppf</span></span> <span class="EQUAL">=</span> <a href="#val-pf"><span class="LIDENT">pf</span></a> <a href="#local_ppf_84"><span class="LIDENT">ppf</span></a> <span class="STRING">"@{<keyword>%s@}"</span> <a href="#local_keyword_83"><span class="LIDENT">keyword</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span id="module-Infix"><span class="MODULE">module</span> <span class="UIDENT">Infix</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Infix.val-(++)"><span class="LPAREN">(</span> <span class="INFIXOP2">++</span> <span class="RPAREN">)</span></span> <span class="EQUAL">=</span> <a href="#val-(++)"><span class="LPAREN">(</span> <span class="INFIXOP2">++</span> <span class="RPAREN">)</span></a><span class="EOL"> | |
| diff --git a/html_master/odoc/source/src/document/comment.ml.html b/html_1031/odoc/source/src/document/comment.ml.html | |
| index 22b46d4a1..5caf5e829 100644 | |
| --- a/html_master/odoc/source/src/document/comment.ml.html | |
| +++ b/html_1031/odoc/source/src/document/comment.ml.html | |
| @@ -374,7 +374,7 @@ | |
| <a id="L373" class="source_line" href="#L373">373</a> | |
| <a id="L374" class="source_line" href="#L374">374</a> | |
| <a id="L375" class="source_line" href="#L375">375</a> | |
| -</code><code class="source_code"><span><span id="local_*opt*_161"></span><span id="local_*sth*_163"></span><span class="COMMENT">(* | |
| +</code><code class="source_code"><span><span id="local_*sth*_162"></span><span class="COMMENT">(* | |
| * Copyright (c) 2016, 2017 Thomas Refis <trefis@janestreet.com> | |
| * | |
| * Permission to use, copy, modify, and distribute this software for any | |
| @@ -661,56 +661,56 @@ | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="local_mk_value_156"><span class="LIDENT">mk_value</span></span> <span id="local_desc_157"><span class="LIDENT">desc</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="LABEL">~attr:</span><span class="LBRACKET">[</span> <span class="STRING">"value"</span> <span class="RBRACKET">]</span> <a href="#local_desc_157"><span class="LIDENT">desc</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="local_text_def_158"><span class="LIDENT">text_def</span></span> <span id="local_s_159"><span class="LIDENT">s</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LPAREN">(</span><span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Inline</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_s_159"><span class="LIDENT">s</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_prefix_162"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_163"><span class="LBRACKET">[</span><span class="RBRACKET">]</span></a><span class="RPAREN">)</span> <span id="local_content_164"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_content_164"><span class="LIDENT">content</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_prefix_161"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_162"><span class="LBRACKET">[</span><span class="RBRACKET">]</span></a><span class="RPAREN">)</span> <span id="local_content_163"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_content_163"><span class="LIDENT">content</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_content_165"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span> <a href="#local_prefix_162"><span class="LIDENT">prefix</span></a> <span class="INFIXOP1">@</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_content_165"><span class="LIDENT">content</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_content_164"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span> <a href="#local_prefix_161"><span class="LIDENT">prefix</span></a> <span class="INFIXOP1">@</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_content_164"><span class="LIDENT">content</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="MATCH">match</span> <a href="#local_t_146"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Author</span> <span id="local_s_166"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"author"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_166"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Deprecated</span> <span id="local_content_167"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"deprecated"</span> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_167"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Param</span> <span class="LPAREN">(</span><span id="local_name_168"><span class="LIDENT">name</span></span><span class="COMMA">,</span> <span id="local_content_169"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_value_170"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_name_168"><span class="LIDENT">name</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"parameter"</span> <span class="TILDE">~</span><a href="#local_value_170"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_169"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Raise</span> <span class="LPAREN">(</span><span id="local_kind_171"><span class="LIDENT">kind</span></span><span class="COMMA">,</span> <span id="local_content_172"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_value_173"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#val-inline_element"><span class="LIDENT">inline_element</span></a> <span class="LPAREN">(</span><a href="#local_kind_171"><span class="LIDENT">kind</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">inline_element</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"raises"</span> <span class="TILDE">~</span><a href="#local_value_173"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_172"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Return</span> <span id="local_content_174"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"returns"</span> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_174"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">See</span> <span class="LPAREN">(</span><span id="local_kind_175"><span class="LIDENT">kind</span></span><span class="COMMA">,</span> <span id="local_target_176"><span class="LIDENT">target</span></span><span class="COMMA">,</span> <span id="local_content_177"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_value_178"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_kind_175"><span class="LIDENT">kind</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Url</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Link</span> <span class="LPAREN">(</span><a href="#local_target_176"><span class="LIDENT">target</span></a><span class="COMMA">,</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_target_176"><span class="LIDENT">target</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">File</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><a href="#val-source_of_code"><span class="LIDENT">source_of_code</span></a> <a href="#local_target_176"><span class="LIDENT">target</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Document</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_target_176"><span class="LIDENT">target</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Author</span> <span id="local_s_165"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"author"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_165"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Deprecated</span> <span id="local_content_166"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"deprecated"</span> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_166"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Param</span> <span class="LPAREN">(</span><span id="local_name_167"><span class="LIDENT">name</span></span><span class="COMMA">,</span> <span id="local_content_168"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_value_169"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_name_167"><span class="LIDENT">name</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"parameter"</span> <span class="TILDE">~</span><a href="#local_value_169"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_168"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Raise</span> <span class="LPAREN">(</span><span id="local_kind_170"><span class="LIDENT">kind</span></span><span class="COMMA">,</span> <span id="local_content_171"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_value_172"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#val-inline_element"><span class="LIDENT">inline_element</span></a> <span class="LPAREN">(</span><a href="#local_kind_170"><span class="LIDENT">kind</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">inline_element</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"raises"</span> <span class="TILDE">~</span><a href="#local_value_172"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_171"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Return</span> <span id="local_content_173"><span class="LIDENT">content</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"returns"</span> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_173"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">See</span> <span class="LPAREN">(</span><span id="local_kind_174"><span class="LIDENT">kind</span></span><span class="COMMA">,</span> <span id="local_target_175"><span class="LIDENT">target</span></span><span class="COMMA">,</span> <span id="local_content_176"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_value_177"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_kind_174"><span class="LIDENT">kind</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Url</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Link</span> <span class="LPAREN">(</span><a href="#local_target_175"><span class="LIDENT">target</span></a><span class="COMMA">,</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_target_175"><span class="LIDENT">target</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">File</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Source</span> <span class="LPAREN">(</span><a href="#val-source_of_code"><span class="LIDENT">source_of_code</span></a> <a href="#local_target_175"><span class="LIDENT">target</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Document</span> <span class="MINUSGREATER">-></span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_target_175"><span class="LIDENT">target</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"see"</span> <span class="TILDE">~</span><a href="#local_value_178"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_177"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Since</span> <span id="local_s_179"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"since"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_179"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Before</span> <span class="LPAREN">(</span><span id="local_version_180"><span class="LIDENT">version</span></span><span class="COMMA">,</span> <span id="local_content_181"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_value_182"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_version_180"><span class="LIDENT">version</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"before"</span> <span class="TILDE">~</span><a href="#local_value_182"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_181"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Version</span> <span id="local_s_183"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"version"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_183"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alert</span> <span class="LPAREN">(</span><span class="STRING">"deprecated"</span><span class="COMMA">,</span> <span id="local_content_184"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_185"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></a> <a href="#local_content_184"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"deprecated"</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LPAREN">(</span><span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Inline</span> <a href="#local_content_185"><span class="LIDENT">content</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alert</span> <span class="LPAREN">(</span><span id="local_tag_186"><span class="LIDENT">tag</span></span><span class="COMMA">,</span> <span id="local_content_187"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_188"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></a> <span class="LABEL">~prefix:</span><span class="LBRACKET">[</span> <a href="#local_sp_147"><span class="LIDENT">sp</span></a> <span class="RBRACKET">]</span> <a href="#local_content_187"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"see"</span> <span class="TILDE">~</span><a href="#local_value_177"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_176"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Since</span> <span id="local_s_178"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"since"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_178"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Before</span> <span class="LPAREN">(</span><span id="local_version_179"><span class="LIDENT">version</span></span><span class="COMMA">,</span> <span id="local_content_180"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_value_181"><span class="LIDENT">value</span></span> <span class="EQUAL">=</span> <a href="#local_mk_value_156"><span class="LIDENT">mk_value</span></a> <span class="LPAREN">(</span><span class="UIDENT">Inline</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_version_179"><span class="LIDENT">version</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"before"</span> <span class="TILDE">~</span><a href="#local_value_181"><span class="LIDENT">value</span></a> <span class="LPAREN">(</span><a href="#val-nestable_block_element_list"><span class="LIDENT">nestable_block_element_list</span></a> <a href="#local_content_180"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Version</span> <span id="local_s_182"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"version"</span> <span class="LPAREN">(</span><a href="#local_text_def_158"><span class="LIDENT">text_def</span></a> <a href="#local_s_182"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alert</span> <span class="LPAREN">(</span><span class="STRING">"deprecated"</span><span class="COMMA">,</span> <span id="local_content_183"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_184"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></a> <a href="#local_content_183"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"deprecated"</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LPAREN">(</span><span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Inline</span> <a href="#local_content_184"><span class="LIDENT">content</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alert</span> <span class="LPAREN">(</span><span id="local_tag_185"><span class="LIDENT">tag</span></span><span class="COMMA">,</span> <span id="local_content_186"><span class="LIDENT">content</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_187"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#local_content_to_inline_160"><span class="LIDENT">content_to_inline</span></a> <span class="LABEL">~prefix:</span><span class="LBRACKET">[</span> <a href="#local_sp_147"><span class="LIDENT">sp</span></a> <span class="RBRACKET">]</span> <a href="#local_content_186"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <a href="#local_item_148"><span class="LIDENT">item</span></a> <span class="LABEL">~tag:</span><span class="STRING">"alert"</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LPAREN">(</span><span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Inline</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_tag_186"><span class="LIDENT">tag</span></a> <span class="RBRACKET">]</span> <span class="INFIXOP1">@</span> <a href="#local_content_188"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LPAREN">(</span><span class="UIDENT">Block</span><span class="DOT">.</span><span class="UIDENT">Inline</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_tag_185"><span class="LIDENT">tag</span></a> <span class="RBRACKET">]</span> <span class="INFIXOP1">@</span> <a href="#local_content_187"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-attached_block_element"><span class="LIDENT">attached_block_element</span></span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Block</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">nestable_block_element</span> <span class="AS">as</span> <span id="local_e_189"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#val-nestable_block_element"><span class="LIDENT">nestable_block_element</span></a> <a href="#local_e_189"><span class="LIDENT">e</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Tag</span> <span id="local_t_190"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LABEL">~attr:</span><span class="LBRACKET">[</span> <span class="STRING">"at-tags"</span> <span class="RBRACKET">]</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Description</span> <span class="LBRACKET">[</span> <a href="#val-tag"><span class="LIDENT">tag</span></a> <a href="#local_t_190"><span class="LIDENT">t</span></a> <span class="RBRACKET">]</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">nestable_block_element</span> <span class="AS">as</span> <span id="local_e_188"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#val-nestable_block_element"><span class="LIDENT">nestable_block_element</span></a> <a href="#local_e_188"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Tag</span> <span id="local_t_189"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="LABEL">~attr:</span><span class="LBRACKET">[</span> <span class="STRING">"at-tags"</span> <span class="RBRACKET">]</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Description</span> <span class="LBRACKET">[</span> <a href="#val-tag"><span class="LIDENT">tag</span></a> <a href="#local_t_189"><span class="LIDENT">t</span></a> <span class="RBRACKET">]</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="COMMENT">(* TODO collaesce tags *)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-block_element"><span class="LIDENT">block_element</span></span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">block_element</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Block</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_e_191"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#val-attached_block_element"><span class="LIDENT">attached_block_element</span></a> <a href="#local_e_191"><span class="LIDENT">e</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_text_192"><span class="LIDENT">text</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_e_190"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#val-attached_block_element"><span class="LIDENT">attached_block_element</span></a> <a href="#local_e_190"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_text_191"><span class="LIDENT">text</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="COMMENT">(* We are not supposed to receive Heading in this context. | |
| TODO: Remove heading in attached documentation in the model *)</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Paragraph</span> <span class="LPAREN">(</span><a href="#val-inline_element_list"><span class="LIDENT">inline_element_list</span></a> <a href="#local_text_192"><span class="LIDENT">text</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="LIDENT">block</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Paragraph</span> <span class="LPAREN">(</span><a href="#val-inline_element_list"><span class="LIDENT">inline_element_list</span></a> <a href="#local_text_191"><span class="LIDENT">text</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-heading_level_to_int"><span class="LIDENT">heading_level_to_int</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Title</span> <span class="MINUSGREATER">-></span> <span class="INT">0</span><span class="EOL"> | |
| @@ -721,32 +721,32 @@ | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Subparagraph</span> <span class="MINUSGREATER">-></span> <span class="INT">5</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-heading"><span class="LIDENT">heading</span></span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span id="local_attrs_193"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span class="LBRACE">{</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Label</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_label_194"><span class="LIDENT">label</span></span><span class="RPAREN">)</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="COMMA">,</span> <span id="local_text_195"><span class="LIDENT">text</span></span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_label_196"><span class="LIDENT">label</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Names</span><span class="DOT">.</span><span class="UIDENT">LabelName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_label_194"><span class="LIDENT">label</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_title_197"><span class="LIDENT">title</span></span> <span class="EQUAL">=</span> <a href="#val-inline_element_list"><span class="LIDENT">inline_element_list</span></a> <a href="#local_text_195"><span class="LIDENT">text</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_level_198"><span class="LIDENT">level</span></span> <span class="EQUAL">=</span> <a href="#val-heading_level_to_int"><span class="LIDENT">heading_level_to_int</span></a> <a href="#local_attrs_193"><span class="LIDENT">attrs</span></a><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">heading_level</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_label_199"><span class="LIDENT">label</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_label_196"><span class="LIDENT">label</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_200"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span class="LBRACE">{</span> <a href="#local_label_199"><span class="LIDENT">label</span></a><span class="SEMI">;</span> <a href="#local_level_198"><span class="LIDENT">level</span></a><span class="SEMI">;</span> <a href="#local_title_197"><span class="LIDENT">title</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_200"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span id="local_attrs_192"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span class="LBRACE">{</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Label</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_label_193"><span class="LIDENT">label</span></span><span class="RPAREN">)</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="COMMA">,</span> <span id="local_text_194"><span class="LIDENT">text</span></span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_label_195"><span class="LIDENT">label</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Names</span><span class="DOT">.</span><span class="UIDENT">LabelName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_label_193"><span class="LIDENT">label</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_title_196"><span class="LIDENT">title</span></span> <span class="EQUAL">=</span> <a href="#val-inline_element_list"><span class="LIDENT">inline_element_list</span></a> <a href="#local_text_194"><span class="LIDENT">text</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_level_197"><span class="LIDENT">level</span></span> <span class="EQUAL">=</span> <a href="#val-heading_level_to_int"><span class="LIDENT">heading_level_to_int</span></a> <a href="#local_attrs_192"><span class="LIDENT">attrs</span></a><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">heading_level</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_label_198"><span class="LIDENT">label</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_label_195"><span class="LIDENT">label</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_199"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span class="LBRACE">{</span> <a href="#local_label_198"><span class="LIDENT">label</span></a><span class="SEMI">;</span> <a href="#local_level_197"><span class="LIDENT">level</span></a><span class="SEMI">;</span> <a href="#local_title_196"><span class="LIDENT">title</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_199"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="LET">let</span> <span id="val-item_element"><span class="LIDENT">item_element</span></span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">block_element</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_e_201"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Text</span> <span class="LPAREN">(</span><a href="#val-attached_block_element"><span class="LIDENT">attached_block_element</span></a> <a href="#local_e_201"><span class="LIDENT">e</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span id="local_h_202"><span class="LIDENT">h</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <a href="#val-heading"><span class="LIDENT">heading</span></a> <a href="#local_h_202"><span class="LIDENT">h</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_e_200"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Text</span> <span class="LPAREN">(</span><a href="#val-attached_block_element"><span class="LIDENT">attached_block_element</span></a> <a href="#local_e_200"><span class="LIDENT">e</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span id="local_h_201"><span class="LIDENT">h</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <a href="#val-heading"><span class="LIDENT">heading</span></a> <a href="#local_h_201"><span class="LIDENT">h</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="DOCSTRING">(** The documentation of the expansion is used if there is no comment attached | |
| to the declaration. *)</span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-synopsis"><span class="LIDENT">synopsis</span></span> <span class="TILDE">~</span><span id="local_decl_doc_203"><span class="LIDENT">decl_doc</span></span> <span class="TILDE">~</span><span id="local_expansion_doc_204"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_docs_205"><span class="LIDENT">docs</span></span> <span class="BAR">|</span> <span id="local_docs_205"><span class="LIDENT">docs</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><a href="#local_decl_doc_203"><span class="LIDENT">decl_doc</span></a><span class="COMMA">,</span> <a href="#local_expansion_doc_204"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <a href="#local_docs_205"><span class="LIDENT">docs</span></a> <span class="WITH">with</span> <span class="UIDENT">Some</span> <span id="local_p_207"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <a href="#val-paragraph"><span class="LIDENT">paragraph</span></a> <a href="#local_p_207"><span class="LIDENT">p</span></a> <span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-synopsis"><span class="LIDENT">synopsis</span></span> <span class="TILDE">~</span><span id="local_decl_doc_202"><span class="LIDENT">decl_doc</span></span> <span class="TILDE">~</span><span id="local_expansion_doc_203"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_docs_204"><span class="LIDENT">docs</span></span> <span class="BAR">|</span> <span id="local_docs_204"><span class="LIDENT">docs</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><a href="#local_decl_doc_202"><span class="LIDENT">decl_doc</span></a><span class="COMMA">,</span> <a href="#local_expansion_doc_203"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <a href="#local_docs_204"><span class="LIDENT">docs</span></a> <span class="WITH">with</span> <span class="UIDENT">Some</span> <span id="local_p_206"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <a href="#val-paragraph"><span class="LIDENT">paragraph</span></a> <a href="#local_p_206"><span class="LIDENT">p</span></a> <span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-standalone"><span class="LIDENT">standalone</span></span> <span id="local_docs_208"><span class="LIDENT">docs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-standalone"><span class="LIDENT">standalone</span></span> <span id="local_docs_207"><span class="LIDENT">docs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">flatmap</span> <span class="LABEL">~f:</span><a href="#val-item_element"><span class="LIDENT">item_element</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_209"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#local_x_209"><span class="LIDENT">x</span></a><span class="DOT">.</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Location_</span><span class="DOT">.</span><span class="LIDENT">value</span><span class="RPAREN">)</span> <a href="#local_docs_208"><span class="LIDENT">docs</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_208"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#local_x_208"><span class="LIDENT">x</span></a><span class="DOT">.</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Location_</span><span class="DOT">.</span><span class="LIDENT">value</span><span class="RPAREN">)</span> <a href="#local_docs_207"><span class="LIDENT">docs</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-to_ir"><span class="LIDENT">to_ir</span></span> <span class="LPAREN">(</span><span id="local_docs_210"><span class="LIDENT">docs</span></span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-to_ir"><span class="LIDENT">to_ir</span></span> <span class="LPAREN">(</span><span id="local_docs_209"><span class="LIDENT">docs</span></span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">flatmap</span> <span class="LABEL">~f:</span><a href="#val-block_element"><span class="LIDENT">block_element</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_211"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#local_x_211"><span class="LIDENT">x</span></a><span class="DOT">.</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Location_</span><span class="DOT">.</span><span class="LIDENT">value</span><span class="RPAREN">)</span> <a href="#local_docs_210"><span class="LIDENT">docs</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_210"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#local_x_210"><span class="LIDENT">x</span></a><span class="DOT">.</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Location_</span><span class="DOT">.</span><span class="LIDENT">value</span><span class="RPAREN">)</span> <a href="#local_docs_209"><span class="LIDENT">docs</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-has_doc"><span class="LIDENT">has_doc</span></span> <span id="local_docs_212"><span class="LIDENT">docs</span></span> <span class="EQUAL">=</span> <a href="#local_docs_212"><span class="LIDENT">docs</span></a> <span class="INFIXOP0"><></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-has_doc"><span class="LIDENT">has_doc</span></span> <span id="local_docs_211"><span class="LIDENT">docs</span></span> <span class="EQUAL">=</span> <a href="#local_docs_211"><span class="LIDENT">docs</span></a> <span class="INFIXOP0"><></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| </span></span></code></pre></body></html> | |
| diff --git a/html_master/odoc/source/src/document/generator.ml.html b/html_1031/odoc/source/src/document/generator.ml.html | |
| index 63da959ba..4d3bb1938 100644 | |
| --- a/html_master/odoc/source/src/document/generator.ml.html | |
| +++ b/html_1031/odoc/source/src/document/generator.ml.html | |
| @@ -1892,7 +1892,7 @@ | |
| <a id="L1891" class="source_line" href="#L1891">1891</a> | |
| <a id="L1892" class="source_line" href="#L1892">1892</a> | |
| <a id="L1893" class="source_line" href="#L1893">1893</a> | |
| -</code><code class="source_code"><span><span id="local_*opt*_29"></span><span id="local_*sth*_31"></span><span id="local_*opt*_41"></span><span id="local_*sth*_43"></span><span id="local_arg_207"></span><span id="local_eta_208"></span><span id="local_*opt*_210"></span><span id="local_*sth*_212"></span><span id="local_*opt*_371"></span><span id="local_*sth*_373"></span><span id="local_*opt*_389"></span><span id="local_*sth*_391"></span><span id="local_*opt*_392"></span><span id="local_*sth*_394"></span><span id="local_*opt*_399"></span><span id="local_*sth*_401"></span><span id="local_*opt*_883"></span><span id="local_*sth*_885"></span><span id="local_*opt*_888"></span><span id="local_*sth*_890"></span><span id="local_*opt*_895"></span><span id="local_*sth*_897"></span><span id="local_*opt*_915"></span><span id="local_*sth*_917"></span><span id="local_*opt*_928"></span><span id="local_*sth*_930"></span><span class="COMMENT">(* | |
| +</code><code class="source_code"><span><span id="local_*sth*_30"></span><span id="local_*sth*_41"></span><span id="local_*sth*_207"></span><span id="local_*sth*_367"></span><span id="local_*sth*_384"></span><span id="local_*sth*_386"></span><span id="local_*sth*_392"></span><span id="local_*sth*_875"></span><span id="local_*sth*_879"></span><span id="local_*sth*_885"></span><span id="local_*sth*_904"></span><span id="local_*sth*_916"></span><span class="COMMENT">(* | |
| * Copyright (c) 2016 Thomas Refis <trefis@janestreet.com> | |
| * | |
| * Permission to use, copy, modify, and distribute this software for any | |
| @@ -1957,39 +1957,39 @@ | |
| </span> <span class="INFIXOP0">|></span> <a href="#local_to_option_26"><span class="LIDENT">to_option</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-attach_expansion"><span class="LIDENT">attach_expansion</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_status_30"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_31"><span class="BACKQUOTE">`</span><span class="UIDENT">Default</span></a><span class="RPAREN">)</span> <span class="LPAREN">(</span><span id="local_eq_32"><span class="LIDENT">eq</span></span><span class="COMMA">,</span> <span id="local_o_33"><span class="LIDENT">o</span></span><span class="COMMA">,</span> <span id="local_e_34"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span id="local_page_35"><span class="LIDENT">page</span></span> <span id="local_text_36"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_page_35"><span class="LIDENT">page</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_text_36"><span class="LIDENT">text</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_page_37"><span class="LIDENT">page</span></span> <span class="COLON">:</span> <span class="UIDENT">Page</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_38"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <a href="#local_page_37"><span class="LIDENT">page</span></a><span class="DOT">.</span><span class="LIDENT">url</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_39"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">render</span> <a href="#local_text_36"><span class="LIDENT">text</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_40"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_eq_32"><span class="LIDENT">eq</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <a href="#local_o_33"><span class="LIDENT">o</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LBRACKET">[</span> <span class="UIDENT">Subpage</span> <span class="LBRACE">{</span> <a href="#local_status_30"><span class="LIDENT">status</span></a><span class="SEMI">;</span> <span class="LIDENT">content</span> <span class="EQUAL">=</span> <a href="#local_page_37"><span class="LIDENT">page</span></a> <span class="RBRACE">}</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <a href="#local_e_34"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-attach_expansion"><span class="LIDENT">attach_expansion</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_status_29"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_30"><span class="BACKQUOTE">`</span><span class="UIDENT">Default</span></a><span class="RPAREN">)</span> <span class="LPAREN">(</span><span id="local_eq_31"><span class="LIDENT">eq</span></span><span class="COMMA">,</span> <span id="local_o_32"><span class="LIDENT">o</span></span><span class="COMMA">,</span> <span id="local_e_33"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span id="local_page_34"><span class="LIDENT">page</span></span> <span id="local_text_35"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_page_34"><span class="LIDENT">page</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_text_35"><span class="LIDENT">text</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_page_36"><span class="LIDENT">page</span></span> <span class="COLON">:</span> <span class="UIDENT">Page</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_37"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <a href="#local_page_36"><span class="LIDENT">page</span></a><span class="DOT">.</span><span class="LIDENT">url</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_38"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">render</span> <a href="#local_text_35"><span class="LIDENT">text</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_39"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_eq_31"><span class="LIDENT">eq</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <a href="#local_o_32"><span class="LIDENT">o</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LBRACKET">[</span> <span class="UIDENT">Subpage</span> <span class="LBRACE">{</span> <a href="#local_status_29"><span class="LIDENT">status</span></a><span class="SEMI">;</span> <span class="LIDENT">content</span> <span class="EQUAL">=</span> <a href="#local_page_36"><span class="LIDENT">page</span></a> <span class="RBRACE">}</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <a href="#local_e_33"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="UIDENT">Alternative</span> <span class="LPAREN">(</span><span class="UIDENT">Expansion</span> <span class="LBRACE">{</span> <a href="#local_summary_39"><span class="LIDENT">summary</span></a><span class="SEMI">;</span> <a href="#local_url_38"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_status_30"><span class="LIDENT">status</span></a><span class="SEMI">;</span> <a href="#local_expansion_40"><span class="LIDENT">expansion</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="UIDENT">Alternative</span> <span class="LPAREN">(</span><span class="UIDENT">Expansion</span> <span class="LBRACE">{</span> <a href="#local_summary_38"><span class="LIDENT">summary</span></a><span class="SEMI">;</span> <a href="#local_url_37"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_status_29"><span class="LIDENT">status</span></a><span class="SEMI">;</span> <a href="#local_expansion_39"><span class="LIDENT">expansion</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-mk_heading"><span class="LIDENT">mk_heading</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_level_42"><span class="LIDENT">level</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_43"><span class="INT">1</span></a><span class="RPAREN">)</span> <span class="QUESTION">?</span><span id="local_label_44"><span class="LIDENT">label</span></span> <span id="local_text_45"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_title_46"><span class="LIDENT">title</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_text_45"><span class="LIDENT">text</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span class="LBRACE">{</span> <a href="#local_label_44"><span class="LIDENT">label</span></a><span class="SEMI">;</span> <a href="#local_level_42"><span class="LIDENT">level</span></a><span class="SEMI">;</span> <a href="#local_title_46"><span class="LIDENT">title</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-mk_heading"><span class="LIDENT">mk_heading</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_level_40"><span class="LIDENT">level</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_41"><span class="INT">1</span></a><span class="RPAREN">)</span> <span class="QUESTION">?</span><span id="local_label_42"><span class="LIDENT">label</span></span> <span id="local_text_43"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_title_44"><span class="LIDENT">title</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_text_43"><span class="LIDENT">text</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span class="LBRACE">{</span> <a href="#local_label_42"><span class="LIDENT">label</span></a><span class="SEMI">;</span> <a href="#local_level_40"><span class="LIDENT">level</span></a><span class="SEMI">;</span> <a href="#local_title_44"><span class="LIDENT">title</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="DOCSTRING">(** Returns the preamble as an item. Stop the preamble at the first heading. The | |
| rest is inserted into [items]. *)</span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-prepare_preamble"><span class="LIDENT">prepare_preamble</span></span> <span id="local_comment_47"><span class="LIDENT">comment</span></span> <span id="local_items_48"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_preamble_49"><span class="LIDENT">preamble</span></span><span class="COMMA">,</span> <span id="local_first_comment_50"><span class="LIDENT">first_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-prepare_preamble"><span class="LIDENT">prepare_preamble</span></span> <span id="local_comment_45"><span class="LIDENT">comment</span></span> <span id="local_items_46"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_preamble_47"><span class="LIDENT">preamble</span></span><span class="COMMA">,</span> <span id="local_first_comment_48"><span class="LIDENT">first_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">split_at</span><span class="EOL"> | |
| </span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACE">{</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Location_</span><span class="DOT">.</span><span class="LIDENT">value</span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span class="UNDERSCORE">_</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_comment_47"><span class="LIDENT">comment</span></a><span class="EOL"> | |
| +</span> <a href="#local_comment_45"><span class="LIDENT">comment</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">standalone</span> <a href="#local_preamble_49"><span class="LIDENT">preamble</span></a><span class="COMMA">,</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">standalone</span> <a href="#local_first_comment_50"><span class="LIDENT">first_comment</span></a> <span class="INFIXOP1">@</span> <a href="#local_items_48"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">standalone</span> <a href="#local_preamble_47"><span class="LIDENT">preamble</span></a><span class="COMMA">,</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">standalone</span> <a href="#local_first_comment_48"><span class="LIDENT">first_comment</span></a> <span class="INFIXOP1">@</span> <a href="#local_items_46"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span><span class="LET">let</span> <span id="val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></span> <span class="TILDE">~</span><span id="local_source_anchor_51"><span class="LIDENT">source_anchor</span></span> <span id="local_url_52"><span class="LIDENT">url</span></span> <span id="local_comments_53"><span class="LIDENT">comments</span></span> <span id="local_items_54"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_comment_55"><span class="LIDENT">comment</span></span> <span class="EQUAL">=</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">concat</span> <a href="#local_comments_53"><span class="LIDENT">comments</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_preamble_56"><span class="LIDENT">preamble</span></span><span class="COMMA">,</span> <span id="local_items_57"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#val-prepare_preamble"><span class="LIDENT">prepare_preamble</span></a> <a href="#local_comment_55"><span class="LIDENT">comment</span></a> <a href="#local_items_54"><span class="LIDENT">items</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LBRACE">{</span> <a href="#local_preamble_56"><span class="UIDENT">Page</span><span class="DOT">.</span><span class="LIDENT">preamble</span></a><span class="SEMI">;</span> <a href="#local_items_57"><span class="LIDENT">items</span></a><span class="SEMI">;</span> <a href="#local_url_52"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_51"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span><span class="LET">let</span> <span id="val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></span> <span class="TILDE">~</span><span id="local_source_anchor_49"><span class="LIDENT">source_anchor</span></span> <span id="local_url_50"><span class="LIDENT">url</span></span> <span id="local_comments_51"><span class="LIDENT">comments</span></span> <span id="local_items_52"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_comment_53"><span class="LIDENT">comment</span></span> <span class="EQUAL">=</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">concat</span> <a href="#local_comments_51"><span class="LIDENT">comments</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_preamble_54"><span class="LIDENT">preamble</span></span><span class="COMMA">,</span> <span id="local_items_55"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#val-prepare_preamble"><span class="LIDENT">prepare_preamble</span></a> <a href="#local_comment_53"><span class="LIDENT">comment</span></a> <a href="#local_items_52"><span class="LIDENT">items</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LBRACE">{</span> <a href="#local_preamble_54"><span class="UIDENT">Page</span><span class="DOT">.</span><span class="LIDENT">preamble</span></a><span class="SEMI">;</span> <a href="#local_items_55"><span class="LIDENT">items</span></a><span class="SEMI">;</span> <a href="#local_url_50"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_49"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span><span class="INCLUDE">include</span> <span class="UIDENT">Generator_signatures</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| @@ -2002,136 +2002,136 @@ | |
| </span> <span class="OPEN">open</span> <span class="UIDENT">Paths</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></span> <span class="COLON">:</span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_path_58"><span class="LIDENT">path</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_path_58"><span class="LIDENT">path</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Identifier</span> <span class="LPAREN">(</span><span id="local_id_59"><span class="LIDENT">id</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <span class="LPAREN">(</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_59"><span class="LIDENT">id</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span id="local_root_60"><span class="LIDENT">root</span></span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_root_60"><span class="LIDENT">root</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Forward</span> <span id="local_root_61"><span class="LIDENT">root</span></span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_root_61"><span class="LIDENT">root</span></a> <span class="RBRACKET">]</span> <span class="COMMENT">(* FIXME *)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span id="local_prefix_62"><span class="LIDENT">prefix</span></span><span class="COMMA">,</span> <span id="local_suffix_63"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link_64"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_prefix_62"><span class="LIDENT">prefix</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_link_64"><span class="LIDENT">link</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"."</span> <span class="INFIXOP1">^</span> <a href="#local_suffix_63"><span class="LIDENT">suffix</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Apply</span> <span class="LPAREN">(</span><span id="local_p1_65"><span class="LIDENT">p1</span></span><span class="COMMA">,</span> <span id="local_p2_66"><span class="LIDENT">p2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link1_67"><span class="LIDENT">link1</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_p1_65"><span class="LIDENT">p1</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link2_68"><span class="LIDENT">link2</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_p2_66"><span class="LIDENT">p2</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_link1_67"><span class="LIDENT">link1</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_link2_68"><span class="LIDENT">link2</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span class="UNDERSCORE">_</span> <span class="WHEN">when</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">is_hidden</span> <a href="#local_path_58"><span class="LIDENT">path</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_txt_69"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">render_path</span> <a href="#local_path_58"><span class="LIDENT">path</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_69"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_rp_70"><span class="LIDENT">rp</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_path_56"><span class="LIDENT">path</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_path_56"><span class="LIDENT">path</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Identifier</span> <span class="LPAREN">(</span><span id="local_id_57"><span class="LIDENT">id</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <span class="LPAREN">(</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_57"><span class="LIDENT">id</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span id="local_root_58"><span class="LIDENT">root</span></span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_root_58"><span class="LIDENT">root</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Forward</span> <span id="local_root_59"><span class="LIDENT">root</span></span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_root_59"><span class="LIDENT">root</span></a> <span class="RBRACKET">]</span> <span class="COMMENT">(* FIXME *)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span id="local_prefix_60"><span class="LIDENT">prefix</span></span><span class="COMMA">,</span> <span id="local_suffix_61"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link_62"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_prefix_60"><span class="LIDENT">prefix</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_link_62"><span class="LIDENT">link</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"."</span> <span class="INFIXOP1">^</span> <a href="#local_suffix_61"><span class="LIDENT">suffix</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Apply</span> <span class="LPAREN">(</span><span id="local_p1_63"><span class="LIDENT">p1</span></span><span class="COMMA">,</span> <span id="local_p2_64"><span class="LIDENT">p2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link1_65"><span class="LIDENT">link1</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_p1_63"><span class="LIDENT">p1</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link2_66"><span class="LIDENT">link2</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_p2_64"><span class="LIDENT">p2</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_link1_65"><span class="LIDENT">link1</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_link2_66"><span class="LIDENT">link2</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span class="UNDERSCORE">_</span> <span class="WHEN">when</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">is_hidden</span> <a href="#local_path_56"><span class="LIDENT">path</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_txt_67"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">render_path</span> <a href="#local_path_56"><span class="LIDENT">path</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_67"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_rp_68"><span class="LIDENT">rp</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* If the path is pointing to an opaque module or module type | |
| there won't be a page generated - so we stop before; at | |
| the parent page, and link instead to the anchor representing | |
| the declaration of the opaque module(_type) *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_stop_before_71"><span class="LIDENT">stop_before</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_rp_70"><span class="LIDENT">rp</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_stop_before_69"><span class="LIDENT">stop_before</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_rp_68"><span class="LIDENT">rp</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">OpaqueModule</span> <span class="UNDERSCORE">_</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">OpaqueModuleType</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_id_72"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">identifier</span> <a href="#local_rp_70"><span class="LIDENT">rp</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_txt_73"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">render_path</span> <a href="#local_path_58"><span class="LIDENT">path</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="TILDE">~</span><a href="#local_stop_before_71"><span class="LIDENT">stop_before</span></a> <a href="#local_id_72"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_href_74"><span class="LIDENT">href</span></span> <span class="MINUSGREATER">-></span> <a href="#val-resolved"><span class="LIDENT">resolved</span></a> <a href="#local_href_74"><span class="LIDENT">href</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_73"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="UIDENT">Not_linkable</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_txt_73"><span class="LIDENT">txt</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_exn_75"><span class="LIDENT">exn</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Printf</span><span class="DOT">.</span><span class="LIDENT">eprintf</span> <span class="STRING">"Id.href failed: %S\n%!"</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_exn_75"><span class="LIDENT">exn</span></a><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_txt_73"><span class="LIDENT">txt</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_id_70"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">identifier</span> <a href="#local_rp_68"><span class="LIDENT">rp</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_txt_71"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">render_path</span> <a href="#local_path_56"><span class="LIDENT">path</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="TILDE">~</span><a href="#local_stop_before_69"><span class="LIDENT">stop_before</span></a> <a href="#local_id_70"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_href_72"><span class="LIDENT">href</span></span> <span class="MINUSGREATER">-></span> <a href="#val-resolved"><span class="LIDENT">resolved</span></a> <a href="#local_href_72"><span class="LIDENT">href</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_71"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="UIDENT">Not_linkable</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_txt_71"><span class="LIDENT">txt</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_exn_73"><span class="LIDENT">exn</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Printf</span><span class="DOT">.</span><span class="LIDENT">eprintf</span> <span class="STRING">"Id.href failed: %S\n%!"</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_exn_73"><span class="LIDENT">exn</span></a><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_txt_71"><span class="LIDENT">txt</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></span> <span id="local_prefix_76"><span class="LIDENT">prefix</span></span> <span id="local_suffix_77"><span class="LIDENT">suffix</span></span> <span class="EQUAL">=</span> <a href="#local_prefix_76"><span class="LIDENT">prefix</span></a> <span class="INFIXOP1">^</span> <span class="STRING">"."</span> <span class="INFIXOP1">^</span> <a href="#local_suffix_77"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></span> <span id="local_prefix_74"><span class="LIDENT">prefix</span></span> <span id="local_suffix_75"><span class="LIDENT">suffix</span></span> <span class="EQUAL">=</span> <a href="#local_prefix_74"><span class="LIDENT">prefix</span></a> <span class="INFIXOP1">^</span> <span class="STRING">"."</span> <span class="INFIXOP1">^</span> <a href="#local_suffix_75"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Link.val-render_fragment_any"><span class="LIDENT">render_fragment_any</span></span> <span class="COLON">:</span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">string</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_fragment_78"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_fragment_78"><span class="LIDENT">fragment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_rr_79"><span class="LIDENT">rr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <a href="#local_rr_79"><span class="LIDENT">rr</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span><span class="COMMA">,</span> <span id="local_suffix_80"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_suffix_80"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span id="local_prefix_81"><span class="LIDENT">prefix</span></span><span class="COMMA">,</span> <span id="local_suffix_82"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_fragment_any"><span class="LIDENT">render_fragment_any</span></a> <span class="LPAREN">(</span><a href="#local_prefix_81"><span class="LIDENT">prefix</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <a href="#local_suffix_82"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_fragment_76"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_fragment_76"><span class="LIDENT">fragment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_rr_77"><span class="LIDENT">rr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <a href="#local_rr_77"><span class="LIDENT">rr</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span><span class="COMMA">,</span> <span id="local_suffix_78"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_suffix_78"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Dot</span> <span class="LPAREN">(</span><span id="local_prefix_79"><span class="LIDENT">prefix</span></span><span class="COMMA">,</span> <span id="local_suffix_80"><span class="LIDENT">suffix</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_fragment_any"><span class="LIDENT">render_fragment_any</span></a> <span class="LPAREN">(</span><a href="#local_prefix_79"><span class="LIDENT">prefix</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <a href="#local_suffix_80"><span class="LIDENT">suffix</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="MINUSGREATER">-></span> <span class="ASSERT">assert</span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></span> <span class="COLON">:</span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">string</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_fragment_83"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_fragment_83"><span class="LIDENT">fragment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_fragment_81"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_fragment_81"><span class="LIDENT">fragment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="ASSERT">assert</span> <span class="FALSE">false</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Subst</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rr_84"><span class="LIDENT">rr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_84"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rr_85"><span class="LIDENT">rr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_85"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_86"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_86"><span class="LIDENT">s</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module_type</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_87"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_87"><span class="LIDENT">s</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_88"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_88"><span class="LIDENT">s</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_89"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ClassName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_89"><span class="LIDENT">s</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_90"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ClassTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_90"><span class="LIDENT">s</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span id="local_rr_91"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_92"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_91"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_92"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module_type</span> <span class="LPAREN">(</span><span id="local_rr_93"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_94"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Subst</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rr_82"><span class="LIDENT">rr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_82"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rr_83"><span class="LIDENT">rr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_83"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_84"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_84"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module_type</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_85"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_85"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_86"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_86"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_87"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ClassName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_87"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Root</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_s_88"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">ClassTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_88"><span class="LIDENT">s</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span id="local_rr_89"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_90"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_89"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_90"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module_type</span> <span class="LPAREN">(</span><span id="local_rr_91"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_92"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_93"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_94"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span id="local_rr_95"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_96"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_95"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_96"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Class</span> <span class="LPAREN">(</span><span id="local_rr_97"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_98"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_97"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ClassName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_98"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span id="local_rr_99"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_100"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_99"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ClassTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_100"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">OpaqueModule</span> <span id="local_r_101"><span class="LIDENT">r</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_r_101"><span class="LIDENT">r</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_91"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_92"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span id="local_rr_93"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_94"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_93"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_94"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Class</span> <span class="LPAREN">(</span><span id="local_rr_95"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_96"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_95"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ClassName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_96"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span id="local_rr_97"><span class="LIDENT">rr</span></span><span class="COMMA">,</span> <span id="local_s_98"><span class="LIDENT">s</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-dot"><span class="LIDENT">dot</span></a> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_rr_97"><span class="LIDENT">rr</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">ClassTypeName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_s_98"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">OpaqueModule</span> <span id="local_r_99"><span class="LIDENT">r</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_r_99"><span class="LIDENT">r</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Link.val-resolved_fragment_to_ir"><span class="LIDENT">resolved_fragment_to_ir</span></span> <span class="COLON">:</span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">leaf</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_fragment_102"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_fragment_100"><span class="LIDENT">fragment</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Fragment</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_id_103"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">identifier</span> <span class="LPAREN">(</span><a href="#local_fragment_102"><span class="LIDENT">fragment</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_txt_104"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_fragment_102"><span class="LIDENT">fragment</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="FALSE">false</span> <a href="#local_id_103"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_href_105"><span class="LIDENT">href</span></span> <span class="MINUSGREATER">-></span> <a href="#val-resolved"><span class="LIDENT">resolved</span></a> <a href="#local_href_105"><span class="LIDENT">href</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_104"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span class="LPAREN">(</span><span class="UIDENT">Not_linkable</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_104"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_exn_106"><span class="LIDENT">exn</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_id_101"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">identifier</span> <span class="LPAREN">(</span><a href="#local_fragment_100"><span class="LIDENT">fragment</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_txt_102"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-render_resolved_fragment"><span class="LIDENT">render_resolved_fragment</span></a> <span class="LPAREN">(</span><a href="#local_fragment_100"><span class="LIDENT">fragment</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="FALSE">false</span> <a href="#local_id_101"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_href_103"><span class="LIDENT">href</span></span> <span class="MINUSGREATER">-></span> <a href="#val-resolved"><span class="LIDENT">resolved</span></a> <a href="#local_href_103"><span class="LIDENT">href</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_102"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span class="LPAREN">(</span><span class="UIDENT">Not_linkable</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_102"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_exn_104"><span class="LIDENT">exn</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Printf</span><span class="DOT">.</span><span class="LIDENT">eprintf</span> <span class="STRING">"[FRAG] Id.href failed: %S\n%!"</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_exn_106"><span class="LIDENT">exn</span></a><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| -</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_104"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_exn_104"><span class="LIDENT">exn</span></a><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| +</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_102"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Link.val-from_fragment"><span class="LIDENT">from_fragment</span></span> <span class="COLON">:</span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">leaf</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_r_107"><span class="LIDENT">r</span></span><span class="EOL"> | |
| -</span> <span class="WHEN">when</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_r_107"><span class="LIDENT">r</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Link.val-resolved_fragment_to_ir"><span class="LIDENT">resolved_fragment_to_ir</span></a> <a href="#local_r_107"><span class="LIDENT">r</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_f_108"><span class="LIDENT">f</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_txt_109"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-render_fragment_any"><span class="LIDENT">render_fragment_any</span></a> <span class="LPAREN">(</span><a href="#local_f_108"><span class="LIDENT">f</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_109"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Resolved</span> <span id="local_r_105"><span class="LIDENT">r</span></span><span class="EOL"> | |
| +</span> <span class="WHEN">when</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_r_105"><span class="LIDENT">r</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Resolved</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Link.val-resolved_fragment_to_ir"><span class="LIDENT">resolved_fragment_to_ir</span></a> <a href="#local_r_105"><span class="LIDENT">r</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_f_106"><span class="LIDENT">f</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_txt_107"><span class="LIDENT">txt</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-render_fragment_any"><span class="LIDENT">render_fragment_any</span></a> <span class="LPAREN">(</span><a href="#local_f_106"><span class="LIDENT">f</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#val-unresolved"><span class="LIDENT">unresolved</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_txt_107"><span class="LIDENT">txt</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Impl"><span class="MODULE">module</span> <span class="UIDENT">Impl</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Impl.val-impl"><span class="LIDENT">impl</span></span> <span class="TILDE">~</span><span id="local_infos_110"><span class="LIDENT">infos</span></span> <span id="local_src_111"><span class="LIDENT">src</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_l_112"><span class="LIDENT">l</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_infos_110"><span class="LIDENT">infos</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">sort</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_l1_113"><span class="LIDENT">l1</span></span><span class="COMMA">,</span> <span id="local_e1_114"><span class="LIDENT">e1</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_l2_115"><span class="LIDENT">l2</span></span><span class="COMMA">,</span> <span id="local_e2_116"><span class="LIDENT">e2</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_l1_113"><span class="LIDENT">l1</span></a> <span class="EQUAL">=</span> <a href="#local_l2_115"><span class="LIDENT">l2</span></a> <span class="THEN">then</span> <span class="LIDENT">compare</span> <a href="#local_e2_116"><span class="LIDENT">e2</span></a> <a href="#local_e1_114"><span class="LIDENT">e1</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Impl.val-impl"><span class="LIDENT">impl</span></span> <span class="TILDE">~</span><span id="local_infos_108"><span class="LIDENT">infos</span></span> <span id="local_src_109"><span class="LIDENT">src</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_l_110"><span class="LIDENT">l</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#local_infos_108"><span class="LIDENT">infos</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">sort</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_l1_111"><span class="LIDENT">l1</span></span><span class="COMMA">,</span> <span id="local_e1_112"><span class="LIDENT">e1</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_l2_113"><span class="LIDENT">l2</span></span><span class="COMMA">,</span> <span id="local_e2_114"><span class="LIDENT">e2</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_l1_111"><span class="LIDENT">l1</span></a> <span class="EQUAL">=</span> <a href="#local_l2_113"><span class="LIDENT">l2</span></a> <span class="THEN">then</span> <span class="LIDENT">compare</span> <a href="#local_e2_114"><span class="LIDENT">e2</span></a> <a href="#local_e1_112"><span class="LIDENT">e1</span></a><span class="EOL"> | |
| </span> <span class="COMMENT">(* If two intervals open at the same time, we open | |
| first the one that closes last *)</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <span class="LIDENT">compare</span> <a href="#local_l1_113"><span class="LIDENT">l1</span></a> <a href="#local_l2_115"><span class="LIDENT">l2</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <span class="LIDENT">compare</span> <a href="#local_l1_111"><span class="LIDENT">l1</span></a> <a href="#local_l2_113"><span class="LIDENT">l2</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_get_src_117"><span class="LIDENT">get_src</span></span> <span id="local_a_118"><span class="LIDENT">a</span></span> <span id="local_b_119"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_in_bound_120"><span class="LIDENT">in_bound</span></span> <span id="local_x_121"><span class="LIDENT">x</span></span> <span class="EQUAL">=</span> <span class="LIDENT">min</span> <span class="LPAREN">(</span><span class="LIDENT">max</span> <a href="#local_x_121"><span class="LIDENT">x</span></a> <span class="INT">0</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_src_111"><span class="LIDENT">src</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_a_122"><span class="LIDENT">a</span></span> <span class="EQUAL">=</span> <a href="#local_in_bound_120"><span class="LIDENT">in_bound</span></a> <a href="#local_a_118"><span class="LIDENT">a</span></a> <span class="AND">and</span> <span id="local_b_123"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <a href="#local_in_bound_120"><span class="LIDENT">in_bound</span></a> <a href="#local_b_119"><span class="LIDENT">b</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_a_124"><span class="LIDENT">a</span></span><span class="COMMA">,</span> <span id="local_b_125"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><span class="LIDENT">min</span> <a href="#local_a_122"><span class="LIDENT">a</span></a> <a href="#local_b_123"><span class="LIDENT">b</span></a><span class="COMMA">,</span> <span class="LIDENT">max</span> <a href="#local_a_122"><span class="LIDENT">a</span></a> <a href="#local_b_123"><span class="LIDENT">b</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">sub</span> <a href="#local_src_111"><span class="LIDENT">src</span></a> <a href="#local_a_124"><span class="LIDENT">a</span></a> <span class="LPAREN">(</span><a href="#local_b_125"><span class="LIDENT">b</span></a> <span class="MINUS">-</span> <a href="#local_a_124"><span class="LIDENT">a</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_get_src_115"><span class="LIDENT">get_src</span></span> <span id="local_a_116"><span class="LIDENT">a</span></span> <span id="local_b_117"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_in_bound_118"><span class="LIDENT">in_bound</span></span> <span id="local_x_119"><span class="LIDENT">x</span></span> <span class="EQUAL">=</span> <span class="LIDENT">min</span> <span class="LPAREN">(</span><span class="LIDENT">max</span> <a href="#local_x_119"><span class="LIDENT">x</span></a> <span class="INT">0</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_src_109"><span class="LIDENT">src</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_a_120"><span class="LIDENT">a</span></span> <span class="EQUAL">=</span> <a href="#local_in_bound_118"><span class="LIDENT">in_bound</span></a> <a href="#local_a_116"><span class="LIDENT">a</span></a> <span class="AND">and</span> <span id="local_b_121"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <a href="#local_in_bound_118"><span class="LIDENT">in_bound</span></a> <a href="#local_b_117"><span class="LIDENT">b</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_a_122"><span class="LIDENT">a</span></span><span class="COMMA">,</span> <span id="local_b_123"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><span class="LIDENT">min</span> <a href="#local_a_120"><span class="LIDENT">a</span></a> <a href="#local_b_121"><span class="LIDENT">b</span></a><span class="COMMA">,</span> <span class="LIDENT">max</span> <a href="#local_a_120"><span class="LIDENT">a</span></a> <a href="#local_b_121"><span class="LIDENT">b</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">sub</span> <a href="#local_src_109"><span class="LIDENT">src</span></a> <a href="#local_a_122"><span class="LIDENT">a</span></a> <span class="LPAREN">(</span><a href="#local_b_123"><span class="LIDENT">b</span></a> <span class="MINUS">-</span> <a href="#local_a_122"><span class="LIDENT">a</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_plain_code_126"><span class="LIDENT">plain_code</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_plain_code_124"><span class="LIDENT">plain_code</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="STRING">""</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_s_127"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="UIDENT">Types</span><span class="DOT">.</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Plain_code</span> <a href="#local_s_127"><span class="LIDENT">s</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_s_125"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="UIDENT">Types</span><span class="DOT">.</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Plain_code</span> <a href="#local_s_125"><span class="LIDENT">s</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_min_128"><span class="LIDENT">min</span></span> <span class="LPAREN">(</span><span id="local_a_129"><span class="LIDENT">a</span></span> <span class="COLON">:</span> <span class="LIDENT">int</span><span class="RPAREN">)</span> <span id="local_b_130"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_a_129"><span class="LIDENT">a</span></a> <span class="LESS"><</span> <a href="#local_b_130"><span class="LIDENT">b</span></a> <span class="THEN">then</span> <a href="#local_a_129"><span class="LIDENT">a</span></a> <span class="ELSE">else</span> <a href="#local_b_130"><span class="LIDENT">b</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_extract_131"><span class="LIDENT">extract</span></span> <span id="local_from_132"><span class="LIDENT">from</span></span> <span id="local_to__133"><span class="LIDENT">to_</span></span> <span id="local_list_134"><span class="LIDENT">list</span></span> <span id="local_aux_135"><span class="LIDENT">aux</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_list_134"><span class="LIDENT">list</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LPAREN">(</span><span id="local_k_136"><span class="LIDENT">k</span></span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_loc_start_137"><span class="LIDENT">loc_start</span></span><span class="COMMA">,</span> <span id="local_loc_end_138"><span class="LIDENT">loc_end</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="COLONCOLON">::</span> <span id="local_q_139"><span class="LIDENT">q</span></span> <span class="WHEN">when</span> <a href="#local_loc_start_137"><span class="LIDENT">loc_start</span></a> <span class="LESS"><</span> <a href="#local_to__133"><span class="LIDENT">to_</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_loc_end_140"><span class="LIDENT">loc_end</span></span> <span class="EQUAL">=</span> <a href="#local_min_128"><span class="LIDENT">min</span></a> <a href="#local_loc_end_138"><span class="LIDENT">loc_end</span></a> <a href="#local_to__133"><span class="LIDENT">to_</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_min_126"><span class="LIDENT">min</span></span> <span class="LPAREN">(</span><span id="local_a_127"><span class="LIDENT">a</span></span> <span class="COLON">:</span> <span class="LIDENT">int</span><span class="RPAREN">)</span> <span id="local_b_128"><span class="LIDENT">b</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_a_127"><span class="LIDENT">a</span></a> <span class="LESS"><</span> <a href="#local_b_128"><span class="LIDENT">b</span></a> <span class="THEN">then</span> <a href="#local_a_127"><span class="LIDENT">a</span></a> <span class="ELSE">else</span> <a href="#local_b_128"><span class="LIDENT">b</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_extract_129"><span class="LIDENT">extract</span></span> <span id="local_from_130"><span class="LIDENT">from</span></span> <span id="local_to__131"><span class="LIDENT">to_</span></span> <span id="local_list_132"><span class="LIDENT">list</span></span> <span id="local_aux_133"><span class="LIDENT">aux</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_list_132"><span class="LIDENT">list</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LPAREN">(</span><span id="local_k_134"><span class="LIDENT">k</span></span><span class="COMMA">,</span> <span class="LPAREN">(</span><span id="local_loc_start_135"><span class="LIDENT">loc_start</span></span><span class="COMMA">,</span> <span id="local_loc_end_136"><span class="LIDENT">loc_end</span></span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="COLONCOLON">::</span> <span id="local_q_137"><span class="LIDENT">q</span></span> <span class="WHEN">when</span> <a href="#local_loc_start_135"><span class="LIDENT">loc_start</span></a> <span class="LESS"><</span> <a href="#local_to__131"><span class="LIDENT">to_</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_loc_end_138"><span class="LIDENT">loc_end</span></span> <span class="EQUAL">=</span> <a href="#local_min_126"><span class="LIDENT">min</span></a> <a href="#local_loc_end_136"><span class="LIDENT">loc_end</span></a> <a href="#local_to__131"><span class="LIDENT">to_</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* In case of inconsistent [a [b a] b] | |
| we do [a [b b]a] *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_initial_141"><span class="LIDENT">initial</span></span> <span class="EQUAL">=</span> <a href="#local_plain_code_126"><span class="LIDENT">plain_code</span></a> <span class="LPAREN">(</span><a href="#local_get_src_117"><span class="LIDENT">get_src</span></a> <a href="#local_from_132"><span class="LIDENT">from</span></a> <a href="#local_loc_start_137"><span class="LIDENT">loc_start</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_next_142"><span class="LIDENT">next</span></span><span class="COMMA">,</span> <span id="local_q_143"><span class="LIDENT">q</span></span> <span class="EQUAL">=</span> <a href="#local_extract_131"><span class="LIDENT">extract</span></a> <a href="#local_loc_start_137"><span class="LIDENT">loc_start</span></a> <a href="#local_loc_end_140"><span class="LIDENT">loc_end</span></a> <a href="#local_q_139"><span class="LIDENT">q</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_extract_131"><span class="LIDENT">extract</span></a> <a href="#local_loc_end_140"><span class="LIDENT">loc_end</span></a> <a href="#local_to__133"><span class="LIDENT">to_</span></a> <a href="#local_q_143"><span class="LIDENT">q</span></a><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <span class="UIDENT">Types</span><span class="DOT">.</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Tagged_code</span> <span class="LPAREN">(</span><a href="#local_k_136"><span class="LIDENT">k</span></a><span class="COMMA">,</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_next_142"><span class="LIDENT">next</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_initial_141"><span class="LIDENT">initial</span></a> <span class="INFIXOP1">@</span> <a href="#local_aux_135"><span class="LIDENT">aux</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_q_144"><span class="LIDENT">q</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><a href="#local_plain_code_126"><span class="LIDENT">plain_code</span></a> <span class="LPAREN">(</span><a href="#local_get_src_117"><span class="LIDENT">get_src</span></a> <a href="#local_from_132"><span class="LIDENT">from</span></a> <a href="#local_to__133"><span class="LIDENT">to_</span></a><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_aux_135"><span class="LIDENT">aux</span></a><span class="COMMA">,</span> <a href="#local_q_144"><span class="LIDENT">q</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_initial_139"><span class="LIDENT">initial</span></span> <span class="EQUAL">=</span> <a href="#local_plain_code_124"><span class="LIDENT">plain_code</span></a> <span class="LPAREN">(</span><a href="#local_get_src_115"><span class="LIDENT">get_src</span></a> <a href="#local_from_130"><span class="LIDENT">from</span></a> <a href="#local_loc_start_135"><span class="LIDENT">loc_start</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_next_140"><span class="LIDENT">next</span></span><span class="COMMA">,</span> <span id="local_q_141"><span class="LIDENT">q</span></span> <span class="EQUAL">=</span> <a href="#local_extract_129"><span class="LIDENT">extract</span></a> <a href="#local_loc_start_135"><span class="LIDENT">loc_start</span></a> <a href="#local_loc_end_138"><span class="LIDENT">loc_end</span></a> <a href="#local_q_137"><span class="LIDENT">q</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_extract_129"><span class="LIDENT">extract</span></a> <a href="#local_loc_end_138"><span class="LIDENT">loc_end</span></a> <a href="#local_to__131"><span class="LIDENT">to_</span></a> <a href="#local_q_141"><span class="LIDENT">q</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <span class="UIDENT">Types</span><span class="DOT">.</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Tagged_code</span> <span class="LPAREN">(</span><a href="#local_k_134"><span class="LIDENT">k</span></a><span class="COMMA">,</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_next_140"><span class="LIDENT">next</span></a><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_initial_139"><span class="LIDENT">initial</span></a> <span class="INFIXOP1">@</span> <a href="#local_aux_133"><span class="LIDENT">aux</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_q_142"><span class="LIDENT">q</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><a href="#local_plain_code_124"><span class="LIDENT">plain_code</span></a> <span class="LPAREN">(</span><a href="#local_get_src_115"><span class="LIDENT">get_src</span></a> <a href="#local_from_130"><span class="LIDENT">from</span></a> <a href="#local_to__131"><span class="LIDENT">to_</span></a><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_aux_133"><span class="LIDENT">aux</span></a><span class="COMMA">,</span> <a href="#local_q_142"><span class="LIDENT">q</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_145"><span class="LIDENT">doc</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span> <span class="EQUAL">=</span> <a href="#local_extract_131"><span class="LIDENT">extract</span></a> <span class="INT">0</span> <span class="LPAREN">(</span><span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_src_111"><span class="LIDENT">src</span></a><span class="RPAREN">)</span> <a href="#local_l_112"><span class="LIDENT">l</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_doc_145"><span class="LIDENT">doc</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_143"><span class="LIDENT">doc</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span> <span class="EQUAL">=</span> <a href="#local_extract_129"><span class="LIDENT">extract</span></a> <span class="INT">0</span> <span class="LPAREN">(</span><span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_src_109"><span class="LIDENT">src</span></a><span class="RPAREN">)</span> <a href="#local_l_110"><span class="LIDENT">l</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_doc_143"><span class="LIDENT">doc</span></a><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Source_page"><span class="MODULE">module</span> <span class="UIDENT">Source_page</span> <span class="COLON">:</span> <span class="SIG">sig</span><span class="EOL"> | |
| @@ -2143,33 +2143,33 @@ | |
| </span> <span class="LIDENT">string</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="LIDENT">t</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></span> <span id="local_id_146"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_id_146"><span class="LIDENT">id</span></a><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-url"><span class="LIDENT">url</span></span> <span id="local_id_147"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_path</span> <span class="LPAREN">(</span><a href="#module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></a> <a href="#local_id_147"><span class="LIDENT">id</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></span> <span id="local_id_144"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_id_144"><span class="LIDENT">id</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-url"><span class="LIDENT">url</span></span> <span id="local_id_145"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_path</span> <span class="LPAREN">(</span><a href="#module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></a> <a href="#local_id_145"><span class="LIDENT">id</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-info_of_info"><span class="LIDENT">info_of_info</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Source_info</span><span class="DOT">.</span><span class="LIDENT">annotation</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="LIDENT">info</span> <span class="LIDENT">option</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_id_148"><span class="LIDENT">id</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LPAREN">(</span><a href="#local_id_148"><span class="LIDENT">id</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_149"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Link</span> <a href="#local_url_149"><span class="LIDENT">url</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_id_146"><span class="LIDENT">id</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LPAREN">(</span><a href="#local_id_146"><span class="LIDENT">id</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_147"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Link</span> <a href="#local_url_147"><span class="LIDENT">url</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Definition</span> <span id="local_id_150"><span class="LIDENT">id</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_id_150"><span class="LIDENT">id</span></a><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">SourceLocation</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_def_151"><span class="LIDENT">def</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Anchor</span> <span class="LPAREN">(</span><span class="UIDENT">DefName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_def_151"><span class="LIDENT">def</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">SourceLocationInternal</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_local_152"><span class="LIDENT">local</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Anchor</span> <span class="LPAREN">(</span><span class="UIDENT">LocalName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_local_152"><span class="LIDENT">local</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Definition</span> <span id="local_id_148"><span class="LIDENT">id</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_id_148"><span class="LIDENT">id</span></a><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">SourceLocation</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_def_149"><span class="LIDENT">def</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Anchor</span> <span class="LPAREN">(</span><span class="UIDENT">DefName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_def_149"><span class="LIDENT">def</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">SourceLocationInternal</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_local_150"><span class="LIDENT">local</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Anchor</span> <span class="LPAREN">(</span><span class="UIDENT">LocalName</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_local_150"><span class="LIDENT">local</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-source"><span class="LIDENT">source</span></span> <span id="local_id_153"><span class="LIDENT">id</span></span> <span id="local_syntax_info_154"><span class="LIDENT">syntax_info</span></span> <span id="local_infos_155"><span class="LIDENT">infos</span></span> <span id="local_source_code_156"><span class="LIDENT">source_code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_157"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></a> <a href="#local_id_153"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_mapper_158"><span class="LIDENT">mapper</span></span> <span class="LPAREN">(</span><span id="local_info_159"><span class="LIDENT">info</span></span><span class="COMMA">,</span> <span id="local_loc_160"><span class="LIDENT">loc</span></span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#module-Make.module-Source_page.val-info_of_info"><span class="LIDENT">info_of_info</span></a> <a href="#local_info_159"><span class="LIDENT">info</span></a> <span class="WITH">with</span> <span class="UIDENT">Some</span> <span id="local_x_161"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#local_x_161"><span class="LIDENT">x</span></a><span class="COMMA">,</span> <a href="#local_loc_160"><span class="LIDENT">loc</span></a><span class="RPAREN">)</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Source_page.val-source"><span class="LIDENT">source</span></span> <span id="local_id_151"><span class="LIDENT">id</span></span> <span id="local_syntax_info_152"><span class="LIDENT">syntax_info</span></span> <span id="local_infos_153"><span class="LIDENT">infos</span></span> <span id="local_source_code_154"><span class="LIDENT">source_code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_155"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Source_page.val-path"><span class="LIDENT">path</span></a> <a href="#local_id_151"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_mapper_156"><span class="LIDENT">mapper</span></span> <span class="LPAREN">(</span><span id="local_info_157"><span class="LIDENT">info</span></span><span class="COMMA">,</span> <span id="local_loc_158"><span class="LIDENT">loc</span></span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#module-Make.module-Source_page.val-info_of_info"><span class="LIDENT">info_of_info</span></a> <a href="#local_info_157"><span class="LIDENT">info</span></a> <span class="WITH">with</span> <span class="UIDENT">Some</span> <span id="local_x_159"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#local_x_159"><span class="LIDENT">x</span></a><span class="COMMA">,</span> <a href="#local_loc_158"><span class="LIDENT">loc</span></a><span class="RPAREN">)</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_infos_162"><span class="LIDENT">infos</span></span> <span class="EQUAL">=</span> <a href="#val-filter_map"><span class="LIDENT">filter_map</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <a href="#local_mapper_158"><span class="LIDENT">mapper</span></a> <a href="#local_infos_155"><span class="LIDENT">infos</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_syntax_info_163"><span class="LIDENT">syntax_info</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span id="local_ty_164"><span class="LIDENT">ty</span></span><span class="COMMA">,</span> <span id="local_loc_165"><span class="LIDENT">loc</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Syntax</span> <a href="#local_ty_164"><span class="LIDENT">ty</span></a><span class="COMMA">,</span> <a href="#local_loc_165"><span class="LIDENT">loc</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span> <a href="#local_syntax_info_154"><span class="LIDENT">syntax_info</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_infos_160"><span class="LIDENT">infos</span></span> <span class="EQUAL">=</span> <a href="#val-filter_map"><span class="LIDENT">filter_map</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <a href="#local_mapper_156"><span class="LIDENT">mapper</span></a> <a href="#local_infos_153"><span class="LIDENT">infos</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_syntax_info_161"><span class="LIDENT">syntax_info</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span id="local_ty_162"><span class="LIDENT">ty</span></span><span class="COMMA">,</span> <span id="local_loc_163"><span class="LIDENT">loc</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="UIDENT">Syntax</span> <a href="#local_ty_162"><span class="LIDENT">ty</span></a><span class="COMMA">,</span> <a href="#local_loc_163"><span class="LIDENT">loc</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span> <a href="#local_syntax_info_152"><span class="LIDENT">syntax_info</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_contents_166"><span class="LIDENT">contents</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Impl.val-impl"><span class="UIDENT">Impl</span><span class="DOT">.</span><span class="LIDENT">impl</span></a> <span class="LABEL">~infos:</span><span class="LPAREN">(</span><a href="#local_infos_162"><span class="LIDENT">infos</span></a> <span class="INFIXOP1">@</span> <a href="#local_syntax_info_163"><span class="LIDENT">syntax_info</span></a><span class="RPAREN">)</span> <a href="#local_source_code_156"><span class="LIDENT">source_code</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LBRACE">{</span> <a href="#local_url_157"><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_contents_166"><span class="LIDENT">contents</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_contents_164"><span class="LIDENT">contents</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Impl.val-impl"><span class="UIDENT">Impl</span><span class="DOT">.</span><span class="LIDENT">impl</span></a> <span class="LABEL">~infos:</span><span class="LPAREN">(</span><a href="#local_infos_160"><span class="LIDENT">infos</span></a> <span class="INFIXOP1">@</span> <a href="#local_syntax_info_161"><span class="LIDENT">syntax_info</span></a><span class="RPAREN">)</span> <a href="#local_source_code_154"><span class="LIDENT">source_code</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LBRACE">{</span> <a href="#local_url_155"><span class="UIDENT">Source_page</span><span class="DOT">.</span><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_contents_164"><span class="LIDENT">contents</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Type_expression"><span class="MODULE">module</span> <span class="UIDENT">Type_expression</span> <span class="COLON">:</span> <span class="SIG">sig</span><span class="EOL"> | |
| @@ -2178,177 +2178,177 @@ | |
| </span> <span id="module-Make.module-Type_expression.val-format_type_path"><span class="VAL">val</span> <span class="LIDENT">format_type_path</span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="LIDENT">delim</span><span class="COLON">:</span><span class="LBRACKET">[</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Type_expression.val-te_variant"><span class="LIDENT">te_variant</span></span> <span class="LPAREN">(</span><span id="local_t_167"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_style_arguments_168"><span class="LIDENT">style_arguments</span></span> <span class="TILDE">~</span><span id="local_constant_169"><span class="LIDENT">constant</span></span> <span id="local_arguments_170"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Type_expression.val-te_variant"><span class="LIDENT">te_variant</span></span> <span class="LPAREN">(</span><span id="local_t_165"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_style_arguments_166"><span class="LIDENT">style_arguments</span></span> <span class="TILDE">~</span><span id="local_constant_167"><span class="LIDENT">constant</span></span> <span id="local_arguments_168"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* Multiple arguments in a polymorphic variant constructor correspond | |
| to a conjunction of types, not a product: [`Lbl int&float]. | |
| If constant is [true], the conjunction starts with an empty type, | |
| for instance [`Lbl &int]. | |
| *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_wrapped_type_expr_171"><span class="LIDENT">wrapped_type_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_wrapped_type_expr_169"><span class="LIDENT">wrapped_type_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* type conjunction in Reason is printed as `Lbl (t1)&(t2)` *)</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <span class="FUN">fun</span> <span id="local_x_173"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <span class="LABEL">~r:</span><span class="STRING">")"</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_173"><span class="LIDENT">x</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <span class="FUN">fun</span> <span id="local_x_172"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_172"><span class="LIDENT">x</span></a><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <span class="FUN">fun</span> <span id="local_x_170"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <span class="LABEL">~r:</span><span class="STRING">")"</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_170"><span class="LIDENT">x</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <span class="FUN">fun</span> <span id="local_x_171"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_171"><span class="LIDENT">x</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_arguments_174"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_arguments_170"><span class="LIDENT">arguments</span></a> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" & "</span><span class="RPAREN">)</span> <span class="LABEL">~f:</span><a href="#local_wrapped_type_expr_171"><span class="LIDENT">wrapped_type_expr</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_arguments_172"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_arguments_168"><span class="LIDENT">arguments</span></a> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" & "</span><span class="RPAREN">)</span> <span class="LABEL">~f:</span><a href="#local_wrapped_type_expr_169"><span class="LIDENT">wrapped_type_expr</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_constant_169"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"& "</span> <span class="INFIXOP2">++</span> <a href="#local_arguments_174"><span class="LIDENT">arguments</span></a> <span class="ELSE">else</span> <a href="#local_arguments_174"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_constant_167"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"& "</span> <span class="INFIXOP2">++</span> <a href="#local_arguments_172"><span class="LIDENT">arguments</span></a> <span class="ELSE">else</span> <a href="#local_arguments_172"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_style_elements_175"><span class="LIDENT">style_elements</span></span> <span class="TILDE">~</span><span id="local_add_pipe_176"><span class="LIDENT">add_pipe</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_style_elements_173"><span class="LIDENT">style_elements</span></span> <span class="TILDE">~</span><span id="local_add_pipe_174"><span class="LIDENT">add_pipe</span></span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_first_177"><span class="LIDENT">first</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_178"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_first_179"><span class="LIDENT">first</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_first_177"><span class="LIDENT">first</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="UIDENT">Type</span> <span id="local_te_180"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_res_181"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_180"><span class="LIDENT">te</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_add_pipe_176"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span> <span class="INFIXOP2">++</span> <a href="#local_res_181"><span class="LIDENT">res</span></a><span class="RPAREN">)</span> <span class="ELSE">else</span> <a href="#local_res_181"><span class="LIDENT">res</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constructor</span> <span class="LBRACE">{</span> <span id="local_constant_183"><span class="LIDENT">constant</span></span><span class="SEMI">;</span> <span id="local_name_182"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_arguments_184"><span class="LIDENT">arguments</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constr_185"><span class="LIDENT">constr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_186"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="STRING">"`"</span> <span class="INFIXOP1">^</span> <a href="#local_name_182"><span class="LIDENT">name</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_add_pipe_176"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"| "</span> <span class="INFIXOP1">^</span> <a href="#local_name_186"><span class="LIDENT">name</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_186"><span class="LIDENT">name</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_first_175"><span class="LIDENT">first</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_176"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_first_177"><span class="LIDENT">first</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_first_175"><span class="LIDENT">first</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="UIDENT">Type</span> <span id="local_te_178"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_res_179"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_178"><span class="LIDENT">te</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_add_pipe_174"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span> <span class="INFIXOP2">++</span> <a href="#local_res_179"><span class="LIDENT">res</span></a><span class="RPAREN">)</span> <span class="ELSE">else</span> <a href="#local_res_179"><span class="LIDENT">res</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constructor</span> <span class="LBRACE">{</span> <span id="local_constant_181"><span class="LIDENT">constant</span></span><span class="SEMI">;</span> <span id="local_name_180"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_arguments_182"><span class="LIDENT">arguments</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constr_183"><span class="LIDENT">constr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_184"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="STRING">"`"</span> <span class="INFIXOP1">^</span> <a href="#local_name_180"><span class="LIDENT">name</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_add_pipe_174"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"| "</span> <span class="INFIXOP1">^</span> <a href="#local_name_184"><span class="LIDENT">name</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_184"><span class="LIDENT">name</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_res_187"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_res_185"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_arguments_184"><span class="LIDENT">arguments</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_constr_185"><span class="LIDENT">constr</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_arguments_182"><span class="LIDENT">arguments</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_constr_183"><span class="LIDENT">constr</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_arguments_188"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span> <a href="#local_style_arguments_168"><span class="LIDENT">style_arguments</span></a> <span class="TILDE">~</span><a href="#local_constant_183"><span class="LIDENT">constant</span></a> <a href="#local_arguments_184"><span class="LIDENT">arguments</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_arguments_186"><span class="LIDENT">arguments</span></span> <span class="EQUAL">=</span> <a href="#local_style_arguments_166"><span class="LIDENT">style_arguments</span></a> <span class="TILDE">~</span><a href="#local_constant_181"><span class="LIDENT">constant</span></a> <a href="#local_arguments_182"><span class="LIDENT">arguments</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span><span class="EOL"> | |
| -</span> <a href="#local_constr_185"><span class="LIDENT">constr</span></a> <span class="INFIXOP2">++</span> <a href="#local_arguments_188"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <a href="#local_constr_185"><span class="LIDENT">constr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_arguments_188"><span class="LIDENT">arguments</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_constr_183"><span class="LIDENT">constr</span></a> <span class="INFIXOP2">++</span> <a href="#local_arguments_186"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <a href="#local_constr_183"><span class="LIDENT">constr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_arguments_186"><span class="LIDENT">arguments</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_add_pipe_176"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_res_187"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#local_res_187"><span class="LIDENT">res</span></a><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_add_pipe_174"><span class="LIDENT">add_pipe</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_res_185"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#local_res_185"><span class="LIDENT">res</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_first_179"><span class="LIDENT">first</span></a> <span class="INFIXOP2">++</span> <a href="#local_style_elements_175"><span class="LIDENT">style_elements</span></a> <span class="LABEL">~add_pipe:</span><span class="TRUE">true</span> <a href="#local_rest_178"><span class="LIDENT">rest</span></a><span class="EOL"> | |
| +</span> <a href="#local_first_177"><span class="LIDENT">first</span></a> <span class="INFIXOP2">++</span> <a href="#local_style_elements_173"><span class="LIDENT">style_elements</span></a> <span class="LABEL">~add_pipe:</span><span class="TRUE">true</span> <a href="#local_rest_176"><span class="LIDENT">rest</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_elements_189"><span class="LIDENT">elements</span></span> <span class="EQUAL">=</span> <a href="#local_style_elements_175"><span class="LIDENT">style_elements</span></a> <span class="LABEL">~add_pipe:</span><span class="FALSE">false</span> <a href="#local_t_167"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">elements</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_elements_187"><span class="LIDENT">elements</span></span> <span class="EQUAL">=</span> <a href="#local_style_elements_173"><span class="LIDENT">style_elements</span></a> <span class="LABEL">~add_pipe:</span><span class="FALSE">false</span> <a href="#local_t_165"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">elements</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_t_167"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Fixed</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[ "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_189"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Open</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[> "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_189"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_189"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span id="local_lst_190"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constrs_191"><span class="LIDENT">constrs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" "</span> <a href="#local_lst_190"><span class="LIDENT">lst</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_189"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">" "</span> <span class="INFIXOP1">^</span> <a href="#local_constrs_191"><span class="LIDENT">constrs</span></a> <span class="INFIXOP1">^</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_t_165"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Fixed</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[ "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_187"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Open</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[> "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_187"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_187"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span id="local_lst_188"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constrs_189"><span class="LIDENT">constrs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" "</span> <a href="#local_lst_188"><span class="LIDENT">lst</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span> <span class="INFIXOP2">++</span> <a href="#local_elements_187"><span class="LIDENT">elements</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">" "</span> <span class="INFIXOP1">^</span> <a href="#local_constrs_189"><span class="LIDENT">constrs</span></a> <span class="INFIXOP1">^</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-te_object"><span class="LIDENT">te_object</span></span> <span class="LPAREN">(</span><span id="local_t_192"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Object</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_fields_193"><span class="LIDENT">fields</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-te_object"><span class="LIDENT">te_object</span></span> <span class="LPAREN">(</span><span id="local_t_190"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Object</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_fields_191"><span class="LIDENT">fields</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span><span class="EOL"> | |
| </span> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">field_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_t_192"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">fields</span><span class="EOL"> | |
| +</span> <a href="#local_t_190"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">fields</span><span class="EOL"> | |
| </span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Object</span><span class="DOT">.</span><span class="UIDENT">Method</span> <span class="LBRACE">{</span> <span id="local_name_194"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_type__195"><span class="LIDENT">type_</span></span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Object</span><span class="DOT">.</span><span class="UIDENT">Method</span> <span class="LBRACE">{</span> <span id="local_name_192"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_type__193"><span class="LIDENT">type_</span></span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><a href="#local_name_194"><span class="LIDENT">name</span></a> <span class="INFIXOP1">^</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_type__195"><span class="LIDENT">type_</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Inherit</span> <span id="local_type__196"><span class="LIDENT">type_</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_type__196"><span class="LIDENT">type_</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><a href="#local_name_192"><span class="LIDENT">name</span></a> <span class="INFIXOP1">^</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_type__193"><span class="LIDENT">type_</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Inherit</span> <span id="local_type__194"><span class="LIDENT">type_</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_type__194"><span class="LIDENT">type_</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_open_tag_197"><span class="LIDENT">open_tag</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_192"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">open_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">open_tag_extendable</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_open_tag_195"><span class="LIDENT">open_tag</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_190"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">open_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">open_tag_extendable</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">open_tag_closed</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_close_tag_198"><span class="LIDENT">close_tag</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_192"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">open_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">close_tag_extendable</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_close_tag_196"><span class="LIDENT">close_tag</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_190"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">open_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">close_tag_extendable</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Obj</span><span class="DOT">.</span><span class="LIDENT">close_tag_closed</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#local_open_tag_197"><span class="LIDENT">open_tag</span></a> <span class="INFIXOP2">++</span> <a href="#local_fields_193"><span class="LIDENT">fields</span></a> <span class="INFIXOP2">++</span> <a href="#local_close_tag_198"><span class="LIDENT">close_tag</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#local_open_tag_195"><span class="LIDENT">open_tag</span></a> <span class="INFIXOP2">++</span> <a href="#local_fields_191"><span class="LIDENT">fields</span></a> <span class="INFIXOP2">++</span> <a href="#local_close_tag_196"><span class="LIDENT">close_tag</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></span> <span class="TILDE">~</span><span id="local_delim_199"><span class="LIDENT">delim</span></span> <span class="LPAREN">(</span><span id="local_params_200"><span class="LIDENT">params</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span id="local_path_201"><span class="LIDENT">path</span></span> <span class="COLON">:</span> <span class="LIDENT">text</span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></span> <span class="TILDE">~</span><span id="local_delim_197"><span class="LIDENT">delim</span></span> <span class="LPAREN">(</span><span id="local_params_198"><span class="LIDENT">params</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span id="local_path_199"><span class="LIDENT">path</span></span> <span class="COLON">:</span> <span class="LIDENT">text</span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@@</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_params_200"><span class="LIDENT">params</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_path_201"><span class="LIDENT">path</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_param_202"><span class="LIDENT">param</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_param_203"><span class="LIDENT">param</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_param_202"><span class="LIDENT">param</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_args_204"><span class="LIDENT">args</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_params_198"><span class="LIDENT">params</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_path_199"><span class="LIDENT">path</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_param_200"><span class="LIDENT">param</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_param_201"><span class="LIDENT">param</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_param_200"><span class="LIDENT">param</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_args_202"><span class="LIDENT">args</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">parenthesize_constructor</span> <span class="THEN">then</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_param_203"><span class="LIDENT">param</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <a href="#local_param_203"><span class="LIDENT">param</span></a><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_param_201"><span class="LIDENT">param</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <a href="#local_param_201"><span class="LIDENT">param</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <a href="#local_path_201"><span class="LIDENT">path</span></a> <a href="#local_args_204"><span class="LIDENT">args</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_params_205"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_206"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_params_205"><span class="LIDENT">params</span></a> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">","</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="RPAREN">)</span> <span class="LABEL">~f:</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_209"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_delim_199"><span class="LIDENT">delim</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_params_206"><span class="LIDENT">params</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"["</span> <a href="#local_params_206"><span class="LIDENT">params</span></a> <span class="LABEL">~r:</span><span class="STRING">"]"</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <a href="#local_path_199"><span class="LIDENT">path</span></a> <a href="#local_args_202"><span class="LIDENT">args</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_params_203"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_204"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_params_203"><span class="LIDENT">params</span></a> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">","</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="RPAREN">)</span> <span class="LABEL">~f:</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_205"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_delim_197"><span class="LIDENT">delim</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_params_204"><span class="LIDENT">params</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"["</span> <a href="#local_params_204"><span class="LIDENT">params</span></a> <span class="LABEL">~r:</span><span class="STRING">"]"</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <a href="#local_path_201"><span class="LIDENT">path</span></a> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <a href="#local_params_209"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <a href="#local_path_199"><span class="LIDENT">path</span></a> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <a href="#local_params_205"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_needs_parentheses_211"><span class="LIDENT">needs_parentheses</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_212"><span class="FALSE">false</span></a><span class="RPAREN">)</span> <span class="LPAREN">(</span><span id="local_t_213"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_needs_parentheses_206"><span class="LIDENT">needs_parentheses</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_207"><span class="FALSE">false</span></a><span class="RPAREN">)</span> <span class="LPAREN">(</span><span id="local_t_208"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_213"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Var</span> <span id="local_s_214"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#val-type_var"><span class="LIDENT">type_var</span></a> <span class="LPAREN">(</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">var_prefix</span> <span class="INFIXOP1">^</span> <a href="#local_s_214"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_208"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Var</span> <span id="local_s_209"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <a href="#val-type_var"><span class="LIDENT">type_var</span></a> <span class="LPAREN">(</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">var_prefix</span> <span class="INFIXOP1">^</span> <a href="#local_s_209"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Any</span> <span class="MINUSGREATER">-></span> <a href="#val-type_var"><span class="LIDENT">type_var</span></a> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">any</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_te_215"><span class="LIDENT">te</span></span><span class="COMMA">,</span> <span id="local_alias_216"><span class="LIDENT">alias</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_te_215"><span class="LIDENT">te</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"as"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" '"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_alias_216"><span class="LIDENT">alias</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_src_217"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_218"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_res_219"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_te_210"><span class="LIDENT">te</span></span><span class="COMMA">,</span> <span id="local_alias_211"><span class="LIDENT">alias</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_te_210"><span class="LIDENT">te</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"as"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" '"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_alias_211"><span class="LIDENT">alias</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_src_212"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_213"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_res_214"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_217"><span class="LIDENT">src</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_212"><span class="LIDENT">src</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_dst_218"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_dst_213"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| </span> <span class="COMMENT">(* ++ O.end_hv *)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="LIDENT">not</span> <a href="#local_needs_parentheses_211"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span> <a href="#local_res_219"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_219"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span id="local_lbl_220"><span class="LIDENT">lbl</span></span><span class="COMMA">,</span> <span id="local_src_221"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_222"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_res_223"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="LIDENT">not</span> <a href="#local_needs_parentheses_206"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span> <a href="#local_res_214"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_214"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span id="local_lbl_215"><span class="LIDENT">lbl</span></span><span class="COMMA">,</span> <span id="local_src_216"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_217"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_res_218"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <a href="#val-label"><span class="LIDENT">label</span></a> <a href="#local_lbl_220"><span class="LIDENT">lbl</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_221"><span class="LIDENT">src</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <a href="#val-label"><span class="LIDENT">label</span></a> <a href="#local_lbl_215"><span class="LIDENT">lbl</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_216"><span class="LIDENT">src</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_dst_222"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_dst_217"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="LIDENT">not</span> <a href="#local_needs_parentheses_211"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span> <a href="#local_res_223"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_223"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_lst_224"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_res_225"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="LIDENT">not</span> <a href="#local_needs_parentheses_206"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span> <a href="#local_res_218"><span class="LIDENT">res</span></a> <span class="ELSE">else</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_218"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_lst_219"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_res_220"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_224"><span class="LIDENT">lst</span></a> <span class="LABEL">~sep:</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">element_separator</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_219"><span class="LIDENT">lst</span></a> <span class="LABEL">~sep:</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">element_separator</span><span class="EOL"> | |
| </span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">always_parenthesize</span> <span class="BARBAR">||</span> <a href="#local_needs_parentheses_211"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span><span class="EOL"> | |
| -</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_225"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <a href="#local_res_225"><span class="LIDENT">res</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_path_226"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_227"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link_228"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_226"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <a href="#local_args_227"><span class="LIDENT">args</span></a> <a href="#local_link_228"><span class="LIDENT">link</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Polymorphic_variant</span> <span id="local_v_229"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-te_variant"><span class="LIDENT">te_variant</span></a> <a href="#local_v_229"><span class="LIDENT">v</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Object</span> <span id="local_o_230"><span class="LIDENT">o</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-te_object"><span class="LIDENT">te_object</span></a> <a href="#local_o_230"><span class="LIDENT">o</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span id="local_path_231"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_232"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_args_232"><span class="LIDENT">args</span></a><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_231"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Poly</span> <span class="LPAREN">(</span><span id="local_polyvars_233"><span class="LIDENT">polyvars</span></span><span class="COMMA">,</span> <span id="local_t_234"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"'"</span> <span class="INFIXOP1">^</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" '"</span> <a href="#local_polyvars_233"><span class="LIDENT">polyvars</span></a> <span class="INFIXOP1">^</span> <span class="STRING">". "</span><span class="RPAREN">)</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_234"><span class="LIDENT">t</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Package</span> <span id="local_pkg_235"><span class="LIDENT">pkg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">always_parenthesize</span> <span class="BARBAR">||</span> <a href="#local_needs_parentheses_206"><span class="LIDENT">needs_parentheses</span></a> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <a href="#local_res_220"><span class="LIDENT">res</span></a> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <a href="#local_res_220"><span class="LIDENT">res</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_path_221"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_222"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link_223"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_221"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <a href="#local_args_222"><span class="LIDENT">args</span></a> <a href="#local_link_223"><span class="LIDENT">link</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Polymorphic_variant</span> <span id="local_v_224"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-te_variant"><span class="LIDENT">te_variant</span></a> <a href="#local_v_224"><span class="LIDENT">v</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Object</span> <span id="local_o_225"><span class="LIDENT">o</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-te_object"><span class="LIDENT">te_object</span></a> <a href="#local_o_225"><span class="LIDENT">o</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span id="local_path_226"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_227"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_args_227"><span class="LIDENT">args</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_226"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Poly</span> <span class="LPAREN">(</span><span id="local_polyvars_228"><span class="LIDENT">polyvars</span></span><span class="COMMA">,</span> <span id="local_t_229"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">"'"</span> <span class="INFIXOP1">^</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" '"</span> <a href="#local_polyvars_228"><span class="LIDENT">polyvars</span></a> <span class="INFIXOP1">^</span> <span class="STRING">". "</span><span class="RPAREN">)</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_229"><span class="LIDENT">t</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Package</span> <span id="local_pkg_230"><span class="LIDENT">pkg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <a href="#val-enclose"><span class="LIDENT">enclose</span></a> <span class="LABEL">~l:</span><span class="STRING">"("</span> <span class="LABEL">~r:</span><span class="STRING">")"</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_pkg_235"><span class="LIDENT">pkg</span></a><span class="DOT">.</span><span class="LIDENT">path</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_pkg_230"><span class="LIDENT">pkg</span></a><span class="DOT">.</span><span class="LIDENT">path</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_pkg_235"><span class="LIDENT">pkg</span></a><span class="DOT">.</span><span class="LIDENT">substitutions</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_pkg_230"><span class="LIDENT">pkg</span></a><span class="DOT">.</span><span class="LIDENT">substitutions</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_fst_236"><span class="LIDENT">fst</span></span> <span class="COLONCOLON">::</span> <span id="local_lst_237"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_fst_231"><span class="LIDENT">fst</span></span> <span class="COLONCOLON">::</span> <span id="local_lst_232"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"with"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-package_subst"><span class="LIDENT">package_subst</span></a> <a href="#local_fst_236"><span class="LIDENT">fst</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_237"><span class="LIDENT">lst</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_s_238"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"with"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-package_subst"><span class="LIDENT">package_subst</span></a> <a href="#local_fst_231"><span class="LIDENT">fst</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_232"><span class="LIDENT">lst</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_s_233"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"and"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-package_subst"><span class="LIDENT">package_subst</span></a> <a href="#local_s_238"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-package_subst"><span class="LIDENT">package_subst</span></a> <a href="#local_s_233"><span class="LIDENT">s</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Type_expression.val-package_subst"><span class="LIDENT">package_subst</span></span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span id="local_frag_typ_239"><span class="LIDENT">frag_typ</span></span><span class="COMMA">,</span> <span id="local_te_240"><span class="LIDENT">te</span></span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="STAR">*</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="COLON">:</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span id="local_frag_typ_234"><span class="LIDENT">frag_typ</span></span><span class="COMMA">,</span> <span id="local_te_235"><span class="LIDENT">te</span></span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="STAR">*</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_typath_241"><span class="LIDENT">typath</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_fragment"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_fragment</span></a> <span class="LPAREN">(</span><a href="#local_frag_typ_239"><span class="LIDENT">frag_typ</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">leaf</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_typath_241"><span class="LIDENT">typath</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_240"><span class="LIDENT">te</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_typath_236"><span class="LIDENT">typath</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_fragment"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_fragment</span></a> <span class="LPAREN">(</span><a href="#local_frag_typ_234"><span class="LIDENT">frag_typ</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Fragment</span><span class="DOT">.</span><span class="LIDENT">leaf</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_typath_236"><span class="LIDENT">typath</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_235"><span class="LIDENT">te</span></a><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="OPEN">open</span> <span class="UIDENT">Type_expression</span><span class="EOL"> | |
| @@ -2377,319 +2377,319 @@ | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Type_declaration.val-format_constraints"><span class="VAL">val</span> <span class="LIDENT">format_constraints</span> <span class="COLON">:</span> <span class="LPAREN">(</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="STAR">*</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="LIDENT">list</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></span> <span id="local_fields_242"><span class="LIDENT">fields</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_field_243"><span class="LIDENT">field</span></span> <span id="local_mutable__244"><span class="LIDENT">mutable_</span></span> <span id="local_id_245"><span class="LIDENT">id</span></span> <span id="local_typ_246"><span class="LIDENT">typ</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_245"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_247"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_247"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_248"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_249"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_245"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attrs_250"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"record"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_248"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></span> <span id="local_fields_237"><span class="LIDENT">fields</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_field_238"><span class="LIDENT">field</span></span> <span id="local_mutable__239"><span class="LIDENT">mutable_</span></span> <span id="local_id_240"><span class="LIDENT">id</span></span> <span id="local_typ_241"><span class="LIDENT">typ</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_240"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_242"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_242"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_243"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_244"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_240"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attrs_245"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"record"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_243"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cell_251"><span class="LIDENT">cell</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cell_246"><span class="LIDENT">cell</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* O.td ~a:[ O.a_class ["def"; kind ] ] | |
| * [O.a ~a:[O.a_href ("#" ^ anchor); O.a_class ["anchor"]] [] | |
| * ; *)</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">code</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_mutable__244"><span class="LIDENT">mutable_</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"mutable"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_249"><span class="LIDENT">name</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_mutable__239"><span class="LIDENT">mutable_</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"mutable"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_244"><span class="LIDENT">name</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_typ_246"><span class="LIDENT">typ</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_typ_241"><span class="LIDENT">typ</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Record</span><span class="DOT">.</span><span class="LIDENT">field_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* ] *)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_url_248"><span class="LIDENT">url</span></a><span class="COMMA">,</span> <a href="#local_attrs_250"><span class="LIDENT">attrs</span></a><span class="COMMA">,</span> <a href="#local_cell_251"><span class="LIDENT">cell</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_url_243"><span class="LIDENT">url</span></a><span class="COMMA">,</span> <a href="#local_attrs_245"><span class="LIDENT">attrs</span></a><span class="COMMA">,</span> <a href="#local_cell_246"><span class="LIDENT">cell</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rows_252"><span class="LIDENT">rows</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_fields_242"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_fld_253"><span class="LIDENT">fld</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rows_247"><span class="LIDENT">rows</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#local_fields_237"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_fld_248"><span class="LIDENT">fld</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Field</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_254"><span class="LIDENT">url</span></span><span class="COMMA">,</span> <span id="local_attrs_255"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span id="local_code_256"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_field_243"><span class="LIDENT">field</span></a> <a href="#local_fld_253"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">mutable_</span> <span class="LPAREN">(</span><a href="#local_fld_253"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_fld_253"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_249"><span class="LIDENT">url</span></span><span class="COMMA">,</span> <span id="local_attrs_250"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span id="local_code_251"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#local_field_238"><span class="LIDENT">field</span></a> <a href="#local_fld_248"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">mutable_</span> <span class="LPAREN">(</span><a href="#local_fld_248"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_fld_248"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_257"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_254"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rhs_258"><span class="LIDENT">rhs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_fld_253"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_259"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">has_doc</span> <a href="#local_fld_253"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="RPAREN">)</span> <span class="THEN">then</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="ELSE">else</span> <a href="#local_rhs_258"><span class="LIDENT">rhs</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_markers_260"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Documented</span> <span class="LBRACE">{</span> <a href="#local_anchor_257"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_255"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_256"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_259"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_260"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_252"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_249"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rhs_253"><span class="LIDENT">rhs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_fld_248"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_254"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">has_doc</span> <a href="#local_fld_248"><span class="LIDENT">fld</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="RPAREN">)</span> <span class="THEN">then</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="ELSE">else</span> <a href="#local_rhs_253"><span class="LIDENT">rhs</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_markers_255"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Documented</span> <span class="LBRACE">{</span> <a href="#local_anchor_252"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_250"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_251"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_254"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_255"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_261"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"{"</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_rows_252"><span class="LIDENT">rows</span></a> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"}"</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_256"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"{"</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_rows_247"><span class="LIDENT">rows</span></a> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"}"</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_content_261"><span class="LIDENT">content</span></a><span class="EOL"> | |
| +</span> <a href="#local_content_256"><span class="LIDENT">content</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Constructor</span><span class="DOT">.</span><span class="LIDENT">argument</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">option</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_id_262"><span class="LIDENT">id</span></span> <span id="local_args_263"><span class="LIDENT">args</span></span> <span id="local_ret_type_264"><span class="LIDENT">ret_type</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_265"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_262"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_kind_266"><span class="LIDENT">kind</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">kind</span> <a href="#local_id_262"><span class="LIDENT">id</span></a> <span class="INFIXOP0">|></span> <span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cstr_267"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <a href="#val-tag"><span class="LIDENT">tag</span></a> <a href="#local_kind_266"><span class="LIDENT">kind</span></a> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_265"><span class="LIDENT">name</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_is_gadt_268"><span class="LIDENT">is_gadt</span></span><span class="COMMA">,</span> <span id="local_ret_type_269"><span class="LIDENT">ret_type</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_ret_type_264"><span class="LIDENT">ret_type</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_id_257"><span class="LIDENT">id</span></span> <span id="local_args_258"><span class="LIDENT">args</span></span> <span id="local_ret_type_259"><span class="LIDENT">ret_type</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_260"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_id_257"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_kind_261"><span class="LIDENT">kind</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">kind</span> <a href="#local_id_257"><span class="LIDENT">id</span></a> <span class="INFIXOP0">|></span> <span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cstr_262"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <a href="#val-tag"><span class="LIDENT">tag</span></a> <a href="#local_kind_261"><span class="LIDENT">kind</span></a> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_260"><span class="LIDENT">name</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_is_gadt_263"><span class="LIDENT">is_gadt</span></span><span class="COMMA">,</span> <span id="local_ret_type_264"><span class="LIDENT">ret_type</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_ret_type_259"><span class="LIDENT">ret_type</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="FALSE">false</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_te_270"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constant_271"><span class="LIDENT">constant</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_args_263"><span class="LIDENT">args</span></a> <span class="WITH">with</span> <span class="UIDENT">Tuple</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_ret_type_272"><span class="LIDENT">ret_type</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_te_265"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constant_266"><span class="LIDENT">constant</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_args_258"><span class="LIDENT">args</span></a> <span class="WITH">with</span> <span class="UIDENT">Tuple</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_ret_type_267"><span class="LIDENT">ret_type</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_constant_271"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span> <span class="ELSE">else</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">GADT</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_270"><span class="LIDENT">te</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_constant_266"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span> <span class="ELSE">else</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">GADT</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_265"><span class="LIDENT">te</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="TRUE">true</span><span class="COMMA">,</span> <a href="#local_ret_type_272"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="TRUE">true</span><span class="COMMA">,</span> <a href="#local_ret_type_267"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_args_263"><span class="LIDENT">args</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_267"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <a href="#local_ret_type_269"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_lst_273"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_274"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_273"><span class="LIDENT">lst</span></a> <span class="LABEL">~sep:</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">element_separator</span><span class="EOL"> | |
| -</span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><a href="#local_is_gadt_268"><span class="LIDENT">is_gadt</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_args_258"><span class="LIDENT">args</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_262"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <a href="#local_ret_type_264"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_lst_268"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_269"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_lst_268"><span class="LIDENT">lst</span></a> <span class="LABEL">~sep:</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Tuple</span><span class="DOT">.</span><span class="LIDENT">element_separator</span><span class="EOL"> | |
| +</span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><a href="#local_is_gadt_263"><span class="LIDENT">is_gadt</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_cstr_267"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_cstr_262"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_params_274"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#local_params_269"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_gadt_268"><span class="LIDENT">is_gadt</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_gadt_263"><span class="LIDENT">is_gadt</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#local_params_274"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#local_ret_type_269"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_275"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_is_gadt_268"><span class="LIDENT">is_gadt</span></a> <span class="THEN">then</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_267"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_275"><span class="LIDENT">fields</span></a> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_ret_type_269"><span class="LIDENT">ret_type</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#local_params_269"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#local_ret_type_264"><span class="LIDENT">ret_type</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_270"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_is_gadt_263"><span class="LIDENT">is_gadt</span></a> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_262"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_270"><span class="LIDENT">fields</span></a> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_ret_type_264"><span class="LIDENT">ret_type</span></a><span class="EOL"> | |
| </span> <span class="ELSE">else</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_267"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_275"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_cstr_262"><span class="LIDENT">cstr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_270"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></span> <span id="local_typ_expr_276"><span class="LIDENT">typ_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></span> <span id="local_typ_expr_271"><span class="LIDENT">typ_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_typ_expr_276"><span class="LIDENT">typ_expr</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_p_277"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span id="local_ts_278"><span class="LIDENT">ts</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_277"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BARBAR">||</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_t_279"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_279"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <a href="#local_ts_278"><span class="LIDENT">ts</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Poly</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_280"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_t_280"><span class="LIDENT">t</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_280"><span class="LIDENT">t</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_282"><span class="LIDENT">t</span></span><span class="COMMA">,</span> <span id="local_t2_283"><span class="LIDENT">t2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_282"><span class="LIDENT">t</span></a> <span class="BARBAR">||</span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t2_283"><span class="LIDENT">t2</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_ts_284"><span class="LIDENT">ts</span></span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_ts_284"><span class="LIDENT">ts</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_t_286"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_286"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <a href="#local_ts_284"><span class="LIDENT">ts</span></a><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_typ_expr_271"><span class="LIDENT">typ_expr</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_p_272"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span id="local_ts_273"><span class="LIDENT">ts</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_272"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BARBAR">||</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_t_274"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_274"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <a href="#local_ts_273"><span class="LIDENT">ts</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Poly</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_275"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_t_275"><span class="LIDENT">t</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_275"><span class="LIDENT">t</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_277"><span class="LIDENT">t</span></span><span class="COMMA">,</span> <span id="local_t2_278"><span class="LIDENT">t2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_277"><span class="LIDENT">t</span></a> <span class="BARBAR">||</span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t2_278"><span class="LIDENT">t2</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_ts_279"><span class="LIDENT">ts</span></span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_ts_279"><span class="LIDENT">ts</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_t_281"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_t_281"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <a href="#local_ts_279"><span class="LIDENT">ts</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-internal_cstr_arg"><span class="LIDENT">internal_cstr_arg</span></span> <span id="local_t_287"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-internal_cstr_arg"><span class="LIDENT">internal_cstr_arg</span></span> <span id="local_t_282"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Constructor</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Field</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_287"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_type_exprs_288"><span class="LIDENT">type_exprs</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_type_expr_289"><span class="LIDENT">type_expr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_type_expr_289"><span class="LIDENT">type_expr</span></a><span class="RPAREN">)</span> <a href="#local_type_exprs_288"><span class="LIDENT">type_exprs</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_290"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_field_291"><span class="LIDENT">field</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_field_291"><span class="LIDENT">field</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span> <a href="#local_fields_290"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_282"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Tuple</span> <span id="local_type_exprs_283"><span class="LIDENT">type_exprs</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_type_expr_284"><span class="LIDENT">type_expr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_type_expr_284"><span class="LIDENT">type_expr</span></a><span class="RPAREN">)</span> <a href="#local_type_exprs_283"><span class="LIDENT">type_exprs</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_285"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">exists</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_field_286"><span class="LIDENT">field</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-read_typ_exp"><span class="LIDENT">read_typ_exp</span></a> <a href="#local_field_286"><span class="LIDENT">field</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span> <a href="#local_fields_285"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-variant"><span class="LIDENT">variant</span></span> <span id="local_cstrs_292"><span class="LIDENT">cstrs</span></span> <span class="COLON">:</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constructor_293"><span class="LIDENT">constructor</span></span> <span id="local_id_294"><span class="LIDENT">id</span></span> <span id="local_args_295"><span class="LIDENT">args</span></span> <span id="local_res_296"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_294"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_297"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_297"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_298"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attrs_299"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_298"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-variant"><span class="LIDENT">variant</span></span> <span id="local_cstrs_287"><span class="LIDENT">cstrs</span></span> <span class="COLON">:</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constructor_288"><span class="LIDENT">constructor</span></span> <span id="local_id_289"><span class="LIDENT">id</span></span> <span id="local_args_290"><span class="LIDENT">args</span></span> <span id="local_res_291"><span class="LIDENT">res</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_289"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_292"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_292"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_293"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attrs_294"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_293"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_300"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_301"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <a href="#local_id_294"><span class="LIDENT">id</span></a> <a href="#local_args_295"><span class="LIDENT">args</span></a> <a href="#local_res_296"><span class="LIDENT">res</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_doc_301"><span class="LIDENT">doc</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_295"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_296"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <a href="#local_id_289"><span class="LIDENT">id</span></a> <a href="#local_args_290"><span class="LIDENT">args</span></a> <a href="#local_res_291"><span class="LIDENT">res</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_doc_296"><span class="LIDENT">doc</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_url_298"><span class="LIDENT">url</span></a><span class="COMMA">,</span> <a href="#local_attrs_299"><span class="LIDENT">attrs</span></a><span class="COMMA">,</span> <a href="#local_content_300"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_url_293"><span class="LIDENT">url</span></a><span class="COMMA">,</span> <a href="#local_attrs_294"><span class="LIDENT">attrs</span></a><span class="COMMA">,</span> <a href="#local_content_295"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_cstrs_292"><span class="LIDENT">cstrs</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_cstrs_287"><span class="LIDENT">cstrs</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"|"</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="COLONCOLON">::</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rows_302"><span class="LIDENT">rows</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_cstrs_292"><span class="LIDENT">cstrs</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">filter</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_cstr_311"><span class="LIDENT">cstr</span></span> <span class="MINUSGREATER">-></span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_declaration.val-internal_cstr_arg"><span class="LIDENT">internal_cstr_arg</span></a> <a href="#local_cstr_311"><span class="LIDENT">cstr</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_cstr_303"><span class="LIDENT">cstr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rows_297"><span class="LIDENT">rows</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#local_cstrs_287"><span class="LIDENT">cstrs</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">filter</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_cstr_306"><span class="LIDENT">cstr</span></span> <span class="MINUSGREATER">-></span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_declaration.val-internal_cstr_arg"><span class="LIDENT">internal_cstr_arg</span></a> <a href="#local_cstr_306"><span class="LIDENT">cstr</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP0">|></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_cstr_298"><span class="LIDENT">cstr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Constructor</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_304"><span class="LIDENT">url</span></span><span class="COMMA">,</span> <span id="local_attrs_305"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span id="local_code_306"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_constructor_293"><span class="LIDENT">constructor</span></a><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_cstr_303"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_cstr_303"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_cstr_303"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">res</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_299"><span class="LIDENT">url</span></span><span class="COMMA">,</span> <span id="local_attrs_300"><span class="LIDENT">attrs</span></span><span class="COMMA">,</span> <span id="local_code_301"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#local_constructor_288"><span class="LIDENT">constructor</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_cstr_298"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_cstr_298"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_cstr_298"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">res</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_307"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_304"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rhs_308"><span class="LIDENT">rhs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_cstr_303"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_309"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">has_doc</span> <a href="#local_cstr_303"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="RPAREN">)</span> <span class="THEN">then</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="ELSE">else</span> <a href="#local_rhs_308"><span class="LIDENT">rhs</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_302"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_299"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rhs_303"><span class="LIDENT">rhs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_cstr_298"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_304"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="LIDENT">not</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">has_doc</span> <a href="#local_cstr_298"><span class="LIDENT">cstr</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="RPAREN">)</span> <span class="THEN">then</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="ELSE">else</span> <a href="#local_rhs_303"><span class="LIDENT">rhs</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_markers_310"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_anchor_307"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_305"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_306"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_309"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_310"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_markers_305"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_anchor_302"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_300"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_301"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_304"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_305"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_rows_302"><span class="LIDENT">rows</span></a><span class="EOL"> | |
| +</span> <a href="#local_rows_297"><span class="LIDENT">rows</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-extension_constructor"><span class="LIDENT">extension_constructor</span></span> <span class="LPAREN">(</span><span id="local_t_312"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Extension</span><span class="DOT">.</span><span class="UIDENT">Constructor</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_id_313"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><a href="#local_t_312"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_313"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_314"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_314"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_315"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_316"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_315"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attrs_317"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_315"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-extension_constructor"><span class="LIDENT">extension_constructor</span></span> <span class="LPAREN">(</span><span id="local_t_307"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Extension</span><span class="DOT">.</span><span class="UIDENT">Constructor</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_id_308"><span class="LIDENT">id</span></span> <span class="EQUAL">=</span> <span class="LPAREN">(</span><a href="#local_t_307"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LABEL">~stop_before:</span><span class="TRUE">true</span> <a href="#local_id_308"><span class="LIDENT">id</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Error</span> <span id="local_e_309"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="failwith">failwith</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Error</span><span class="DOT">.</span><span class="LIDENT">to_string</span> <a href="#local_e_309"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Ok</span> <span id="local_url_310"><span class="LIDENT">url</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_311"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_310"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attrs_312"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_310"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_code_318"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <a href="#local_id_313"><span class="LIDENT">id</span></a> <a href="#local_t_312"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_t_312"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">res</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_code_313"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <a href="#local_id_308"><span class="LIDENT">id</span></a> <a href="#local_t_307"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_t_307"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">res</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_319"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_312"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_markers_320"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_anchor_316"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_317"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_318"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_319"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_320"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_314"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_307"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_markers_315"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_anchor_311"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attrs_312"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_code_313"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_314"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_315"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-extension"><span class="LIDENT">extension</span></span> <span class="LPAREN">(</span><span id="local_t_321"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Extension</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_prefix_322"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-extension"><span class="LIDENT">extension</span></span> <span class="LPAREN">(</span><span id="local_t_316"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Extension</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_prefix_317"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_t_321"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_path</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_t_316"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_path</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" +="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_321"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">private_keyword</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_316"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">private_keyword</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_323"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_prefix_322"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#module-Make.module-Type_declaration.val-extension_constructor"><span class="LIDENT">extension_constructor</span></a> <a href="#local_t_321"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">constructors</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_318"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_prefix_317"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#module-Make.module-Type_declaration.val-extension_constructor"><span class="LIDENT">extension_constructor</span></a> <a href="#local_t_316"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">constructors</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">type_def_semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_324"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"type"</span><span class="SEMI">;</span> <span class="STRING">"extension"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_325"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">extension_decl</span> <a href="#local_t_321"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_326"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_321"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_327"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_319"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"type"</span><span class="SEMI">;</span> <span class="STRING">"extension"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_320"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">extension_decl</span> <a href="#local_t_316"><span class="LIDENT">t</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_321"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_316"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_322"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* Take the anchor from the first constructor only for consistency with | |
| regular variants. *)</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_321"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">constructors</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_hd_328"><span class="LIDENT">hd</span></span> <span class="COLONCOLON">::</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_hd_328"><span class="LIDENT">hd</span></a><span class="DOT">.</span><span class="LIDENT">locs</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_316"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">constructors</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_hd_323"><span class="LIDENT">hd</span></span> <span class="COLONCOLON">::</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_hd_323"><span class="LIDENT">hd</span></a><span class="DOT">.</span><span class="LIDENT">locs</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_324"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_325"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_326"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_323"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_327"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_319"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_320"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_321"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_318"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_322"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-exn"><span class="LIDENT">exn</span></span> <span class="LPAREN">(</span><span id="local_t_329"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Exception</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cstr_330"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <span class="LPAREN">(</span><a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">res</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_331"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-exn"><span class="LIDENT">exn</span></span> <span class="LPAREN">(</span><span id="local_t_324"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Exception</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cstr_325"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-constructor"><span class="LIDENT">constructor</span></a> <span class="LPAREN">(</span><a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">args</span> <a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">res</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_326"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"exception"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_330"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_325"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Exception</span><span class="DOT">.</span><span class="LIDENT">semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_332"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"exception"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_333"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_334"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_335"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_329"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_332"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_333"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_334"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_331"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_335"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_327"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"exception"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_328"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_329"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_330"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_324"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_327"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_328"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_329"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_326"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_330"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-polymorphic_variant"><span class="LIDENT">polymorphic_variant</span></span> <span class="TILDE">~</span><span id="local_type_ident_336"><span class="LIDENT">type_ident</span></span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span id="local_t_337"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_row_338"><span class="LIDENT">row</span></span> <span id="local_item_339"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_kind_approx_340"><span class="LIDENT">kind_approx</span></span><span class="COMMA">,</span> <span id="local_cstr_341"><span class="LIDENT">cstr</span></span><span class="COMMA">,</span> <span id="local_doc_342"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_item_339"><span class="LIDENT">item</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="UIDENT">Type</span> <span id="local_te_343"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="STRING">"unknown"</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_343"><span class="LIDENT">te</span></a><span class="RPAREN">)</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constructor</span> <span class="LBRACE">{</span> <span id="local_constant_345"><span class="LIDENT">constant</span></span><span class="SEMI">;</span> <span id="local_name_344"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_arguments_346"><span class="LIDENT">arguments</span></span><span class="SEMI">;</span> <span id="local_doc_347"><span class="LIDENT">doc</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cstr_348"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <span class="STRING">"`"</span> <span class="INFIXOP1">^</span> <a href="#local_name_344"><span class="LIDENT">name</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-polymorphic_variant"><span class="LIDENT">polymorphic_variant</span></span> <span class="TILDE">~</span><span id="local_type_ident_331"><span class="LIDENT">type_ident</span></span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span id="local_t_332"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_row_333"><span class="LIDENT">row</span></span> <span id="local_item_334"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_kind_approx_335"><span class="LIDENT">kind_approx</span></span><span class="COMMA">,</span> <span id="local_cstr_336"><span class="LIDENT">cstr</span></span><span class="COMMA">,</span> <span id="local_doc_337"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_item_334"><span class="LIDENT">item</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span><span class="DOT">.</span><span class="UIDENT">Type</span> <span id="local_te_338"><span class="LIDENT">te</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="STRING">"unknown"</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_te_338"><span class="LIDENT">te</span></a><span class="RPAREN">)</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constructor</span> <span class="LBRACE">{</span> <span id="local_constant_340"><span class="LIDENT">constant</span></span><span class="SEMI">;</span> <span id="local_name_339"><span class="LIDENT">name</span></span><span class="SEMI">;</span> <span id="local_arguments_341"><span class="LIDENT">arguments</span></span><span class="SEMI">;</span> <span id="local_doc_342"><span class="LIDENT">doc</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cstr_343"><span class="LIDENT">cstr</span></span> <span class="EQUAL">=</span> <span class="STRING">"`"</span> <span class="INFIXOP1">^</span> <a href="#local_name_339"><span class="LIDENT">name</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span> <span class="STRING">"constructor"</span><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_arguments_346"><span class="LIDENT">arguments</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_cstr_348"><span class="LIDENT">cstr</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_arguments_341"><span class="LIDENT">arguments</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_cstr_343"><span class="LIDENT">cstr</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="COMMENT">(* Multiple arguments in a polymorphic variant constructor correspond | |
| to a conjunction of types, not a product: [`Lbl int&float]. | |
| If constant is [true], the conjunction starts with an empty type, | |
| for instance [`Lbl &int]. | |
| *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_wrapped_type_expr_349"><span class="LIDENT">wrapped_type_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_wrapped_type_expr_344"><span class="LIDENT">wrapped_type_expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* type conjunction in Reason is printed as `Lbl (t1)&(t2)` *)</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <span class="FUN">fun</span> <span id="local_x_351"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_351"><span class="LIDENT">x</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <span class="FUN">fun</span> <span id="local_x_350"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_350"><span class="LIDENT">x</span></a><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <span class="FUN">fun</span> <span id="local_x_345"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"("</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_345"><span class="LIDENT">x</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">")"</span><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <span class="FUN">fun</span> <span id="local_x_346"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_x_346"><span class="LIDENT">x</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_352"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_347"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_arguments_346"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_arguments_341"><span class="LIDENT">arguments</span></a><span class="EOL"> | |
| </span> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" &"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="LABEL">~f:</span><a href="#local_wrapped_type_expr_349"><span class="LIDENT">wrapped_type_expr</span></a><span class="EOL"> | |
| +</span> <span class="LABEL">~f:</span><a href="#local_wrapped_type_expr_344"><span class="LIDENT">wrapped_type_expr</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_353"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_constant_345"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"& "</span> <span class="INFIXOP2">++</span> <a href="#local_params_352"><span class="LIDENT">params</span></a> <span class="ELSE">else</span> <a href="#local_params_352"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_348"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_constant_340"><span class="LIDENT">constant</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"& "</span> <span class="INFIXOP2">++</span> <a href="#local_params_347"><span class="LIDENT">params</span></a> <span class="ELSE">else</span> <a href="#local_params_347"><span class="LIDENT">params</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_cstr_348"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_cstr_343"><span class="LIDENT">cstr</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <a href="#local_params_353"><span class="LIDENT">params</span></a><span class="EOL"> | |
| -</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_params_353"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_doc_347"><span class="LIDENT">doc</span></a> <span class="WITH">with</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_doc_347"><span class="LIDENT">doc</span></a><span class="RPAREN">)</span> <span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">Variant</span><span class="DOT">.</span><span class="LIDENT">parenthesize_params</span> <span class="THEN">then</span> <a href="#local_params_348"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#local_params_348"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_doc_342"><span class="LIDENT">doc</span></a> <span class="WITH">with</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_doc_342"><span class="LIDENT">doc</span></a><span class="RPAREN">)</span> <span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_markers_354"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_markers_349"><span class="LIDENT">markers</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">markers</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="TRY">try</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_355"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">polymorphic_variant</span> <span class="TILDE">~</span><a href="#local_type_ident_336"><span class="LIDENT">type_ident</span></a> <a href="#local_item_339"><span class="LIDENT">item</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attrs_356"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_355"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_350"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">polymorphic_variant</span> <span class="TILDE">~</span><a href="#local_type_ident_331"><span class="LIDENT">type_ident</span></a> <a href="#local_item_334"><span class="LIDENT">item</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attrs_351"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <span class="STRING">"variant"</span><span class="SEMI">;</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">string_of_kind</span> <a href="#local_url_350"><span class="LIDENT">url</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_357"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_355"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_code_358"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_341"><span class="LIDENT">cstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_359"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_doc_342"><span class="LIDENT">doc</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_doc_360"><span class="LIDENT">doc</span></span> <span class="MINUSGREATER">-></span> <a href="#local_doc_360"><span class="LIDENT">doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_attrs_356"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_anchor_357"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_code_358"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_359"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_354"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| -</span> <span class="WITH">with</span> <span class="UIDENT">Failure</span> <span id="local_s_361"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Printf</span><span class="DOT">.</span><span class="LIDENT">eprintf</span> <span class="STRING">"ERROR: %s\n%!"</span> <a href="#local_s_361"><span class="LIDENT">s</span></a><span class="SEMI">;</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_code_362"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_341"><span class="LIDENT">cstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attrs_363"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <a href="#local_kind_approx_340"><span class="LIDENT">kind_approx</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_364"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_365"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_attrs_363"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_anchor_365"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_code_362"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_364"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_354"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_352"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <a href="#local_url_350"><span class="LIDENT">url</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_code_353"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_336"><span class="LIDENT">cstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_354"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_doc_337"><span class="LIDENT">doc</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_doc_355"><span class="LIDENT">doc</span></span> <span class="MINUSGREATER">-></span> <a href="#local_doc_355"><span class="LIDENT">doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_attrs_351"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_anchor_352"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_code_353"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_354"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_349"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="WITH">with</span> <span class="UIDENT">Failure</span> <span id="local_s_356"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Printf</span><span class="DOT">.</span><span class="LIDENT">eprintf</span> <span class="STRING">"ERROR: %s\n%!"</span> <a href="#local_s_356"><span class="LIDENT">s</span></a><span class="SEMI">;</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_code_357"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"| "</span><span class="RPAREN">)</span> <span class="INFIXOP1">@</span> <a href="#local_cstr_336"><span class="LIDENT">cstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attrs_358"><span class="LIDENT">attrs</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"def"</span><span class="SEMI">;</span> <a href="#local_kind_approx_335"><span class="LIDENT">kind_approx</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_359"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_360"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="UIDENT">Nested</span> <span class="LBRACE">{</span> <a href="#local_attrs_358"><span class="LIDENT">attrs</span></a><span class="SEMI">;</span> <a href="#local_anchor_360"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_code_357"><span class="LIDENT">code</span></a><span class="SEMI">;</span> <a href="#local_doc_359"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_markers_349"><span class="LIDENT">markers</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_variants_366"><span class="LIDENT">variants</span></span> <span class="EQUAL">=</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#local_row_338"><span class="LIDENT">row</span></a> <a href="#local_t_337"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">elements</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_intro_367"><span class="LIDENT">intro</span></span><span class="COMMA">,</span> <span id="local_ending_368"><span class="LIDENT">ending</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_337"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_variants_361"><span class="LIDENT">variants</span></span> <span class="EQUAL">=</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#local_row_333"><span class="LIDENT">row</span></a> <a href="#local_t_332"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">elements</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_intro_362"><span class="LIDENT">intro</span></span><span class="COMMA">,</span> <span id="local_ending_363"><span class="LIDENT">ending</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_332"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">kind</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Fixed</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[ "</span><span class="RPAREN">)</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Open</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[> "</span><span class="RPAREN">)</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span><span class="RPAREN">)</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span id="local_lst_369"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constrs_370"><span class="LIDENT">constrs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" "</span> <a href="#local_lst_369"><span class="LIDENT">lst</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Closed</span> <span id="local_lst_364"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constrs_365"><span class="LIDENT">constrs</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">" "</span> <a href="#local_lst_364"><span class="LIDENT">lst</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">"[< "</span><span class="RPAREN">)</span><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">" "</span> <span class="INFIXOP1">^</span> <a href="#local_constrs_370"><span class="LIDENT">constrs</span></a> <span class="INFIXOP1">^</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="STRING">" "</span> <span class="INFIXOP1">^</span> <a href="#local_constrs_365"><span class="LIDENT">constrs</span></a> <span class="INFIXOP1">^</span> <span class="STRING">" ]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_intro_367"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_variants_366"><span class="LIDENT">variants</span></a> <span class="INFIXOP1">@</span> <a href="#local_ending_368"><span class="LIDENT">ending</span></a><span class="EOL"> | |
| +</span> <a href="#local_intro_362"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_variants_361"><span class="LIDENT">variants</span></a> <span class="INFIXOP1">@</span> <a href="#local_ending_363"><span class="LIDENT">ending</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="QUOTE">'</span><span class="LIDENT">row</span><span class="DOT">.</span><span class="EOL"> | |
| </span> <span class="OPTLABEL">?delim:</span><span class="LBRACKET">[</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="LIDENT">param</span> <span class="LIDENT">list</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LIDENT">text</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_*opt*_371"><span class="FUN">fun</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_delim_372"><span class="LIDENT">delim</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_373"><span class="BACKQUOTE">`</span><span class="LIDENT">parens</span></a><span class="RPAREN">)</span> <span id="local_params_374"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_format_param_375"><span class="LIDENT">format_param</span></span> <span class="LBRACE">{</span> <span id="local_desc_376"><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="LIDENT">desc</span></span><span class="SEMI">;</span> <span id="local_variance_377"><span class="LIDENT">variance</span></span><span class="SEMI">;</span> <span id="local_injectivity_378"><span class="LIDENT">injectivity</span></span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_delim_366"><span class="LIDENT">delim</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_367"><span class="BACKQUOTE">`</span><span class="LIDENT">parens</span></a><span class="RPAREN">)</span> <span id="local_params_368"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_format_param_369"><span class="LIDENT">format_param</span></span> <span class="LBRACE">{</span> <span id="local_desc_370"><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="LIDENT">desc</span></span><span class="SEMI">;</span> <span id="local_variance_371"><span class="LIDENT">variance</span></span><span class="SEMI">;</span> <span id="local_injectivity_372"><span class="LIDENT">injectivity</span></span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_desc_379"><span class="LIDENT">desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_desc_376"><span class="LIDENT">desc</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_desc_373"><span class="LIDENT">desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_desc_370"><span class="LIDENT">desc</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Any</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="STRING">"_"</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Var</span> <span id="local_s_380"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="STRING">"'"</span><span class="SEMI">;</span> <a href="#local_s_380"><span class="LIDENT">s</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Var</span> <span id="local_s_374"><span class="LIDENT">s</span></span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span> <span class="STRING">"'"</span><span class="SEMI">;</span> <a href="#local_s_374"><span class="LIDENT">s</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_var_desc_381"><span class="LIDENT">var_desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_variance_377"><span class="LIDENT">variance</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <a href="#local_desc_379"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Pos</span> <span class="MINUSGREATER">-></span> <span class="STRING">"+"</span> <span class="COLONCOLON">::</span> <a href="#local_desc_379"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Neg</span> <span class="MINUSGREATER">-></span> <span class="STRING">"-"</span> <span class="COLONCOLON">::</span> <a href="#local_desc_379"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_var_desc_375"><span class="LIDENT">var_desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_variance_371"><span class="LIDENT">variance</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <a href="#local_desc_373"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Pos</span> <span class="MINUSGREATER">-></span> <span class="STRING">"+"</span> <span class="COLONCOLON">::</span> <a href="#local_desc_373"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Neg</span> <span class="MINUSGREATER">-></span> <span class="STRING">"-"</span> <span class="COLONCOLON">::</span> <a href="#local_desc_373"><span class="LIDENT">desc</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_final_382"><span class="LIDENT">final</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_injectivity_378"><span class="LIDENT">injectivity</span></a> <span class="THEN">then</span> <span class="STRING">"!"</span> <span class="COLONCOLON">::</span> <a href="#local_var_desc_381"><span class="LIDENT">var_desc</span></a> <span class="ELSE">else</span> <a href="#local_var_desc_381"><span class="LIDENT">var_desc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">""</span> <a href="#local_final_382"><span class="LIDENT">final</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_final_376"><span class="LIDENT">final</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_injectivity_372"><span class="LIDENT">injectivity</span></a> <span class="THEN">then</span> <span class="STRING">"!"</span> <span class="COLONCOLON">::</span> <a href="#local_var_desc_375"><span class="LIDENT">var_desc</span></a> <span class="ELSE">else</span> <a href="#local_var_desc_375"><span class="LIDENT">var_desc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">""</span> <a href="#local_final_376"><span class="LIDENT">final</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_params_374"><span class="LIDENT">params</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_params_368"><span class="LIDENT">params</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="STRING">""</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_x_383"><span class="LIDENT">x</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_format_param_375"><span class="LIDENT">format_param</span></a> <a href="#local_x_383"><span class="LIDENT">x</span></a> <span class="INFIXOP0">|></span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_format_params</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_lst_384"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_385"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">", "</span> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#local_format_param_375"><span class="LIDENT">format_param</span></a> <a href="#local_lst_384"><span class="LIDENT">lst</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_delim_372"><span class="LIDENT">delim</span></a> <span class="WITH">with</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <span class="STRING">"("</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <span class="STRING">"["</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">^</span> <a href="#local_params_385"><span class="LIDENT">params</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP1">^</span> <span class="MATCH">match</span> <a href="#local_delim_372"><span class="LIDENT">delim</span></a> <span class="WITH">with</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <span class="STRING">")"</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <span class="STRING">"]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span> <span id="local_x_377"><span class="LIDENT">x</span></span> <span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <a href="#local_format_param_369"><span class="LIDENT">format_param</span></a> <a href="#local_x_377"><span class="LIDENT">x</span></a> <span class="INFIXOP0">|></span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_format_params</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_lst_378"><span class="LIDENT">lst</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_379"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="UIDENT">String</span><span class="DOT">.</span><span class="LIDENT">concat</span> <span class="STRING">", "</span> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">map</span> <a href="#local_format_param_369"><span class="LIDENT">format_param</span></a> <a href="#local_lst_378"><span class="LIDENT">lst</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="MATCH">match</span> <a href="#local_delim_366"><span class="LIDENT">delim</span></a> <span class="WITH">with</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <span class="STRING">"("</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <span class="STRING">"["</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">^</span> <a href="#local_params_379"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">^</span> <span class="MATCH">match</span> <a href="#local_delim_366"><span class="LIDENT">delim</span></a> <span class="WITH">with</span> <span class="BACKQUOTE">`</span><span class="LIDENT">parens</span> <span class="MINUSGREATER">-></span> <span class="STRING">")"</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <span class="MINUSGREATER">-></span> <span class="STRING">"]"</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></span> <span id="local_constraints_386"><span class="LIDENT">constraints</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_constraints_386"><span class="LIDENT">constraints</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span id="local_t1_387"><span class="LIDENT">t1</span></span><span class="COMMA">,</span> <span id="local_t2_388"><span class="LIDENT">t2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></span> <span id="local_constraints_380"><span class="LIDENT">constraints</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span> <a href="#local_constraints_380"><span class="LIDENT">constraints</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span class="LPAREN">(</span><span id="local_t1_381"><span class="LIDENT">t1</span></span><span class="COMMA">,</span> <span id="local_t2_382"><span class="LIDENT">t2</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"constraint"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t1_387"><span class="LIDENT">t1</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t1_381"><span class="LIDENT">t1</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t2_388"><span class="LIDENT">t2</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv_no_indent</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t2_382"><span class="LIDENT">t2</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-format_manifest"><span class="LIDENT">format_manifest</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="QUOTE">'</span><span class="LIDENT">inner_row</span> <span class="QUOTE">'</span><span class="LIDENT">outer_row</span><span class="DOT">.</span><span class="EOL"> | |
| @@ -2697,99 +2697,99 @@ | |
| </span> <span class="OPTLABEL">?compact_variants:</span><span class="LIDENT">bool</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="UIDENT">Equation</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LIDENT">text</span> <span class="STAR">*</span> <span class="LIDENT">bool</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#local_*opt*_389"><span class="FUN">fun</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_is_substitution_390"><span class="LIDENT">is_substitution</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_391"><span class="FALSE">false</span></a><span class="RPAREN">)</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_compact_variants_393"><span class="LIDENT">compact_variants</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_394"><span class="TRUE">true</span></a><span class="RPAREN">)</span> <span id="local_equation_395"><span class="LIDENT">equation</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="UNDERSCORE">_</span> <span class="EQUAL">=</span> <a href="#local_compact_variants_393"><span class="LIDENT">compact_variants</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_is_substitution_383"><span class="LIDENT">is_substitution</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_384"><span class="FALSE">false</span></a><span class="RPAREN">)</span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_compact_variants_385"><span class="LIDENT">compact_variants</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_386"><span class="TRUE">true</span></a><span class="RPAREN">)</span> <span id="local_equation_387"><span class="LIDENT">equation</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="UNDERSCORE">_</span> <span class="EQUAL">=</span> <a href="#local_compact_variants_385"><span class="LIDENT">compact_variants</span></a> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* TODO *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_private__396"><span class="LIDENT">private_</span></span> <span class="EQUAL">=</span> <a href="#local_equation_395"><span class="LIDENT">equation</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_equation_395"><span class="LIDENT">equation</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="COMMA">,</span> <a href="#local_private__396"><span class="LIDENT">private_</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_t_397"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_manifest_398"><span class="LIDENT">manifest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_390"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="STRING">" :="</span> <span class="ELSE">else</span> <span class="STRING">" ="</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_private__388"><span class="LIDENT">private_</span></span> <span class="EQUAL">=</span> <a href="#local_equation_387"><span class="LIDENT">equation</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_equation_387"><span class="LIDENT">equation</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="COMMA">,</span> <a href="#local_private__388"><span class="LIDENT">private_</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_t_389"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_manifest_390"><span class="LIDENT">manifest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_383"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="STRING">" :="</span> <span class="ELSE">else</span> <span class="STRING">" ="</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_private__396"><span class="LIDENT">private_</span></a> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_private__388"><span class="LIDENT">private_</span></a> <span class="THEN">then</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">private_keyword</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_397"><span class="LIDENT">t</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_389"><span class="LIDENT">t</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_manifest_398"><span class="LIDENT">manifest</span></a><span class="COMMA">,</span> <span class="FALSE">false</span><span class="RPAREN">)</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_manifest_390"><span class="LIDENT">manifest</span></a><span class="COMMA">,</span> <span class="FALSE">false</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_is_substitution_400"><span class="LIDENT">is_substitution</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_401"><span class="FALSE">false</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span id="local_recursive_402"><span class="LIDENT">recursive</span></span><span class="COMMA">,</span> <span id="local_t_403"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">recursive</span> <span class="STAR">*</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_keyword'_404"><span class="LIDENT">keyword'</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_recursive_402"><span class="LIDENT">recursive</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></span> <span class="QUESTION">?</span><span class="LPAREN">(</span><span id="local_is_substitution_391"><span class="LIDENT">is_substitution</span></span> <span class="EQUAL">=</span> <a href="#local_*sth*_392"><span class="FALSE">false</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="LPAREN">(</span><span id="local_recursive_393"><span class="LIDENT">recursive</span></span><span class="COMMA">,</span> <span id="local_t_394"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">recursive</span> <span class="STAR">*</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_keyword'_395"><span class="LIDENT">keyword'</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_recursive_393"><span class="LIDENT">recursive</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Ordinary</span> <span class="BAR">|</span> <span class="UIDENT">Rec</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">And</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"and"</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Nonrec</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"nonrec"</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_tyname_405"><span class="LIDENT">tyname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_tconstr_406"><span class="LIDENT">tconstr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">params</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_tyname_405"><span class="LIDENT">tyname</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_l_407"><span class="LIDENT">l</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_408"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <a href="#local_l_407"><span class="LIDENT">l</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_tyname_405"><span class="LIDENT">tyname</span></a><span class="RPAREN">)</span> <a href="#local_params_408"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_tyname_396"><span class="LIDENT">tyname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_tconstr_397"><span class="LIDENT">tconstr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">params</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_tyname_396"><span class="LIDENT">tyname</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_l_398"><span class="LIDENT">l</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_399"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <a href="#local_l_398"><span class="LIDENT">l</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">handle_constructor_params</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_tyname_396"><span class="LIDENT">tyname</span></a><span class="RPAREN">)</span> <a href="#local_params_399"><span class="LIDENT">params</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_intro_409"><span class="LIDENT">intro</span></span> <span class="EQUAL">=</span> <a href="#local_keyword'_404"><span class="LIDENT">keyword'</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_tconstr_406"><span class="LIDENT">tconstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_constraints_410"><span class="LIDENT">constraints</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></a> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">constraints</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_manifest_411"><span class="LIDENT">manifest</span></span><span class="COMMA">,</span> <span id="local_need_private_412"><span class="LIDENT">need_private</span></span><span class="COMMA">,</span> <span id="local_long_prefix_413"><span class="LIDENT">long_prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span> <span id="local_variant_414"><span class="LIDENT">variant</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_code_415"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_intro_400"><span class="LIDENT">intro</span></span> <span class="EQUAL">=</span> <a href="#local_keyword'_395"><span class="LIDENT">keyword'</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_tconstr_397"><span class="LIDENT">tconstr</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_constraints_401"><span class="LIDENT">constraints</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></a> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">constraints</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_manifest_402"><span class="LIDENT">manifest</span></span><span class="COMMA">,</span> <span id="local_need_private_403"><span class="LIDENT">need_private</span></span><span class="COMMA">,</span> <span id="local_long_prefix_404"><span class="LIDENT">long_prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeExpr</span><span class="DOT">.</span><span class="UIDENT">Polymorphic_variant</span> <span id="local_variant_405"><span class="LIDENT">variant</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_code_406"><span class="LIDENT">code</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <a href="#module-Make.module-Type_declaration.val-polymorphic_variant"><span class="LIDENT">polymorphic_variant</span></a><span class="EOL"> | |
| -</span> <span class="LABEL">~type_ident:</span><span class="LPAREN">(</span><a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_variant_414"><span class="LIDENT">variant</span></a><span class="EOL"> | |
| +</span> <span class="LABEL">~type_ident:</span><span class="LPAREN">(</span><a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_variant_405"><span class="LIDENT">variant</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_manifest_416"><span class="LIDENT">manifest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_manifest_407"><span class="LIDENT">manifest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_409"><span class="LIDENT">intro</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_400"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="STRING">" :="</span> <span class="ELSE">else</span> <span class="STRING">" ="</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_400"><span class="LIDENT">intro</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_391"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="STRING">" :="</span> <span class="ELSE">else</span> <span class="STRING">" ="</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">private_keyword</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_code_415"><span class="LIDENT">code</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_code_406"><span class="LIDENT">code</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_manifest_416"><span class="LIDENT">manifest</span></a><span class="COMMA">,</span> <span class="FALSE">false</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_manifest_407"><span class="LIDENT">manifest</span></a><span class="COMMA">,</span> <span class="FALSE">false</span><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_manifest_417"><span class="LIDENT">manifest</span></span><span class="COMMA">,</span> <span id="local_need_private_418"><span class="LIDENT">need_private</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Type_declaration.val-format_manifest"><span class="LIDENT">format_manifest</span></a> <span class="TILDE">~</span><a href="#local_is_substitution_400"><span class="LIDENT">is_substitution</span></a> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_manifest_408"><span class="LIDENT">manifest</span></span><span class="COMMA">,</span> <span id="local_need_private_409"><span class="LIDENT">need_private</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Type_declaration.val-format_manifest"><span class="LIDENT">format_manifest</span></a> <span class="TILDE">~</span><a href="#local_is_substitution_391"><span class="LIDENT">is_substitution</span></a> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">equation</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_text_419"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_409"><span class="LIDENT">intro</span></a> <span class="INFIXOP2">++</span> <a href="#local_manifest_417"><span class="LIDENT">manifest</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#local_text_419"><span class="LIDENT">text</span></a><span class="COMMA">,</span> <a href="#local_need_private_418"><span class="LIDENT">need_private</span></a><span class="COMMA">,</span> <a href="#local_text_419"><span class="LIDENT">text</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_text_410"><span class="LIDENT">text</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_400"><span class="LIDENT">intro</span></a> <span class="INFIXOP2">++</span> <a href="#local_manifest_408"><span class="LIDENT">manifest</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#local_text_410"><span class="LIDENT">text</span></a><span class="COMMA">,</span> <a href="#local_need_private_409"><span class="LIDENT">need_private</span></a><span class="COMMA">,</span> <a href="#local_text_410"><span class="LIDENT">text</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_representation_420"><span class="LIDENT">representation</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">representation</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_representation_411"><span class="LIDENT">representation</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">representation</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_repr_421"><span class="LIDENT">repr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_422"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_repr_421"><span class="LIDENT">repr</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_repr_412"><span class="LIDENT">repr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_413"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_repr_412"><span class="LIDENT">repr</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Extensible</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">".."</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Variant</span> <span id="local_cstrs_423"><span class="LIDENT">cstrs</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-variant"><span class="LIDENT">variant</span></a> <a href="#local_cstrs_423"><span class="LIDENT">cstrs</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_424"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_424"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Variant</span> <span id="local_cstrs_414"><span class="LIDENT">cstrs</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-variant"><span class="LIDENT">variant</span></a> <a href="#local_cstrs_414"><span class="LIDENT">cstrs</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Record</span> <span id="local_fields_415"><span class="LIDENT">fields</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-record"><span class="LIDENT">record</span></a> <a href="#local_fields_415"><span class="LIDENT">fields</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_content_422"><span class="LIDENT">content</span></a> <span class="GREATER">></span> <span class="INT">0</span> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">length</span> <a href="#local_content_413"><span class="LIDENT">content</span></a> <span class="GREATER">></span> <span class="INT">0</span> <span class="THEN">then</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_long_prefix_413"><span class="LIDENT">long_prefix</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_long_prefix_404"><span class="LIDENT">long_prefix</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_need_private_412"><span class="LIDENT">need_private</span></a> <span class="THEN">then</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_need_private_403"><span class="LIDENT">need_private</span></a> <span class="THEN">then</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">private_keyword</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_content_422"><span class="LIDENT">content</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_content_413"><span class="LIDENT">content</span></a><span class="EOL"> | |
| </span> <span class="ELSE">else</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_425"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_intro_409"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_manifest_411"><span class="LIDENT">manifest</span></a> <span class="INFIXOP1">@</span> <a href="#local_representation_420"><span class="LIDENT">representation</span></a><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_constraints_410"><span class="LIDENT">constraints</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_416"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_intro_400"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_manifest_402"><span class="LIDENT">manifest</span></a> <span class="INFIXOP1">@</span> <a href="#local_representation_411"><span class="LIDENT">representation</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_constraints_401"><span class="LIDENT">constraints</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">type_def_semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_426"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="STRING">"type"</span> <span class="COLONCOLON">::</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_400"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="LBRACKET">[</span> <span class="STRING">"subst"</span> <span class="RBRACKET">]</span> <span class="ELSE">else</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_427"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_428"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_429"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_403"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_426"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_427"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_428"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_425"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_429"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_417"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="STRING">"type"</span> <span class="COLONCOLON">::</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_is_substitution_391"><span class="LIDENT">is_substitution</span></a> <span class="THEN">then</span> <span class="LBRACKET">[</span> <span class="STRING">"subst"</span> <span class="RBRACKET">]</span> <span class="ELSE">else</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_418"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_419"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_420"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_394"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_417"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_418"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_419"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_416"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_420"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="OPEN">open</span> <span class="UIDENT">Type_declaration</span><span class="EOL"> | |
| @@ -2797,28 +2797,28 @@ | |
| </span> <span id="module-Make.module-Value"><span class="MODULE">module</span> <span class="UIDENT">Value</span> <span class="COLON">:</span> <span class="SIG">sig</span><span class="EOL"> | |
| </span> <span id="module-Make.module-Value.val-value"><span class="VAL">val</span> <span class="LIDENT">value</span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Value</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Value.val-value"><span class="LIDENT">value</span></span> <span class="LPAREN">(</span><span id="local_t_430"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Value</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_extra_attr_431"><span class="LIDENT">extra_attr</span></span><span class="COMMA">,</span> <span id="local_semicolon_432"><span class="LIDENT">semicolon</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Value.val-value"><span class="LIDENT">value</span></span> <span class="LPAREN">(</span><span id="local_t_421"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Value</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_extra_attr_422"><span class="LIDENT">extra_attr</span></span><span class="COMMA">,</span> <span id="local_semicolon_423"><span class="LIDENT">semicolon</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Abstract</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Value</span><span class="DOT">.</span><span class="LIDENT">semicolon</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">External</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <span class="STRING">"external"</span> <span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="UIDENT">External</span><span class="DOT">.</span><span class="LIDENT">semicolon</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* TODO: link to source *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_433"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_434"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_424"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_425"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">box_hv</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Value</span><span class="DOT">.</span><span class="LIDENT">variable_keyword</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_433"><span class="LIDENT">name</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_424"><span class="LIDENT">name</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="IF">if</span> <a href="#local_semicolon_432"><span class="LIDENT">semicolon</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="IF">if</span> <a href="#local_semicolon_423"><span class="LIDENT">semicolon</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_435"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"value"</span> <span class="RBRACKET">]</span> <span class="INFIXOP1">@</span> <a href="#local_extra_attr_431"><span class="LIDENT">extra_attr</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_436"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_437"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_438"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_430"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_435"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_436"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_437"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_434"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_438"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_426"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"value"</span> <span class="RBRACKET">]</span> <span class="INFIXOP1">@</span> <a href="#local_extra_attr_422"><span class="LIDENT">extra_attr</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_427"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_428"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_429"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_421"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_426"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_427"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_428"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_425"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_429"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="OPEN">open</span> <span class="UIDENT">Value</span><span class="EOL"> | |
| @@ -2835,57 +2835,57 @@ | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Sectioning.val-docs"><span class="VAL">val</span> <span class="LIDENT">docs</span> <span class="COLON">:</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span> <span class="STAR">*</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-take_until_heading_or_end"><span class="LIDENT">take_until_heading_or_end</span></span> <span class="LPAREN">(</span><span id="local_docs_439"><span class="LIDENT">docs</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_440"><span class="LIDENT">content</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rest_441"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_docs_439"><span class="LIDENT">docs</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_b_442"><span class="LIDENT">b</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_b_442"><span class="LIDENT">b</span></a><span class="DOT">.</span><span class="UIDENT">Location</span><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-take_until_heading_or_end"><span class="LIDENT">take_until_heading_or_end</span></span> <span class="LPAREN">(</span><span id="local_docs_430"><span class="LIDENT">docs</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_431"><span class="LIDENT">content</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_rest_432"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_docs_430"><span class="LIDENT">docs</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_b_433"><span class="LIDENT">b</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_b_433"><span class="LIDENT">b</span></a><span class="DOT">.</span><span class="UIDENT">Location</span><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Stop_and_keep</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_doc_443"><span class="LIDENT">doc</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_444"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <a href="#local_doc_443"><span class="LIDENT">doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Accum</span> <a href="#local_content_444"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="HASH">#</span><span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <span class="AS">as</span> <span id="local_doc_434"><span class="LIDENT">doc</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_435"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">attached_block_element</span> <a href="#local_doc_434"><span class="LIDENT">doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Accum</span> <a href="#local_content_435"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_content_440"><span class="LIDENT">content</span></a><span class="COMMA">,</span> <a href="#local_rest_441"><span class="LIDENT">rest</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_content_431"><span class="LIDENT">content</span></a><span class="COMMA">,</span> <a href="#local_rest_432"><span class="LIDENT">rest</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-comment_items"><span class="LIDENT">comment_items</span></span> <span class="LPAREN">(</span><span id="local_input0_445"><span class="LIDENT">input0</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_446"><span class="LIDENT">loop</span></span> <span id="local_input_comment_447"><span class="LIDENT">input_comment</span></span> <span id="local_acc_448"><span class="LIDENT">acc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_input_comment_447"><span class="LIDENT">input_comment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_448"><span class="LIDENT">acc</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_element_449"><span class="LIDENT">element</span></span> <span class="COLONCOLON">::</span> <span id="local_input_comment_450"><span class="LIDENT">input_comment</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_element_449"><span class="LIDENT">element</span></a><span class="DOT">.</span><span class="UIDENT">Location</span><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span id="local_h_451"><span class="LIDENT">h</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_item_452"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">heading</span> <a href="#local_h_451"><span class="LIDENT">h</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_446"><span class="LIDENT">loop</span></a> <a href="#local_input_comment_450"><span class="LIDENT">input_comment</span></a> <span class="LPAREN">(</span><a href="#local_item_452"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_448"><span class="LIDENT">acc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-comment_items"><span class="LIDENT">comment_items</span></span> <span class="LPAREN">(</span><span id="local_input0_436"><span class="LIDENT">input0</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_437"><span class="LIDENT">loop</span></span> <span id="local_input_comment_438"><span class="LIDENT">input_comment</span></span> <span id="local_acc_439"><span class="LIDENT">acc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_input_comment_438"><span class="LIDENT">input_comment</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_439"><span class="LIDENT">acc</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_element_440"><span class="LIDENT">element</span></span> <span class="COLONCOLON">::</span> <span id="local_input_comment_441"><span class="LIDENT">input_comment</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_element_440"><span class="LIDENT">element</span></a><span class="DOT">.</span><span class="UIDENT">Location</span><span class="DOT">.</span><span class="LIDENT">value</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Heading</span> <span id="local_h_442"><span class="LIDENT">h</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_item_443"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">heading</span> <a href="#local_h_442"><span class="LIDENT">h</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_loop_437"><span class="LIDENT">loop</span></a> <a href="#local_input_comment_441"><span class="LIDENT">input_comment</span></a> <span class="LPAREN">(</span><a href="#local_item_443"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_439"><span class="LIDENT">acc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_453"><span class="LIDENT">content</span></span><span class="COMMA">,</span> <span id="local_input_comment_454"><span class="LIDENT">input_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Sectioning.val-take_until_heading_or_end"><span class="LIDENT">take_until_heading_or_end</span></a> <span class="LPAREN">(</span><a href="#local_element_449"><span class="LIDENT">element</span></a> <span class="COLONCOLON">::</span> <a href="#local_input_comment_450"><span class="LIDENT">input_comment</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_444"><span class="LIDENT">content</span></span><span class="COMMA">,</span> <span id="local_input_comment_445"><span class="LIDENT">input_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Sectioning.val-take_until_heading_or_end"><span class="LIDENT">take_until_heading_or_end</span></a> <span class="LPAREN">(</span><a href="#local_element_440"><span class="LIDENT">element</span></a> <span class="COLONCOLON">::</span> <a href="#local_input_comment_441"><span class="LIDENT">input_comment</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_item_455"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_content_453"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_446"><span class="LIDENT">loop</span></a> <a href="#local_input_comment_454"><span class="LIDENT">input_comment</span></a> <span class="LPAREN">(</span><a href="#local_item_455"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_448"><span class="LIDENT">acc</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_item_446"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Text</span> <a href="#local_content_444"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_loop_437"><span class="LIDENT">loop</span></a> <a href="#local_input_comment_445"><span class="LIDENT">input_comment</span></a> <span class="LPAREN">(</span><a href="#local_item_446"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_439"><span class="LIDENT">acc</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_446"><span class="LIDENT">loop</span></a> <a href="#local_input0_445"><span class="LIDENT">input0</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_loop_437"><span class="LIDENT">loop</span></a> <a href="#local_input0_436"><span class="LIDENT">input0</span></a> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="COMMENT">(* For doc pages, we want the header to contain everything until | |
| the first heading, then everything before the next heading which | |
| is either lower, or a section. | |
| *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-docs"><span class="LIDENT">docs</span></span> <span id="local_input_comment_456"><span class="LIDENT">input_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_items_457"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="LIDENT">comment_items</span></a> <a href="#local_input_comment_456"><span class="LIDENT">input_comment</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_until_first_heading_458"><span class="LIDENT">until_first_heading</span></span><span class="COMMA">,</span> <span id="local_o_459"><span class="LIDENT">o</span></span><span class="COMMA">,</span> <span id="local_items_460"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_items_457"><span class="LIDENT">items</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span id="local_h_461"><span class="LIDENT">h</span></span> <span class="AS">as</span> <span id="local_i_462"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Stop_and_accum</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <a href="#local_i_462"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_h_461"><span class="LIDENT">h</span></a><span class="DOT">.</span><span class="LIDENT">level</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_i_463"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Accum</span> <span class="LBRACKET">[</span> <a href="#local_i_463"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Sectioning.val-docs"><span class="LIDENT">docs</span></span> <span id="local_input_comment_447"><span class="LIDENT">input_comment</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_items_448"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="LIDENT">comment_items</span></a> <a href="#local_input_comment_447"><span class="LIDENT">input_comment</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_until_first_heading_449"><span class="LIDENT">until_first_heading</span></span><span class="COMMA">,</span> <span id="local_o_450"><span class="LIDENT">o</span></span><span class="COMMA">,</span> <span id="local_items_451"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_items_448"><span class="LIDENT">items</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span id="local_h_453"><span class="LIDENT">h</span></span> <span class="AS">as</span> <span id="local_i_452"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Stop_and_accum</span> <span class="LPAREN">(</span><span class="LBRACKET">[</span> <a href="#local_i_452"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_h_453"><span class="LIDENT">h</span></a><span class="DOT">.</span><span class="LIDENT">level</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_i_454"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Accum</span> <span class="LBRACKET">[</span> <a href="#local_i_454"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_o_459"><span class="LIDENT">o</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><a href="#local_until_first_heading_458"><span class="LIDENT">until_first_heading</span></a><span class="COMMA">,</span> <a href="#local_items_460"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_level_464"><span class="LIDENT">level</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_max_level_465"><span class="LIDENT">max_level</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_level_464"><span class="LIDENT">level</span></a> <span class="EQUAL">=</span> <span class="INT">1</span> <span class="THEN">then</span> <span class="INT">2</span> <span class="ELSE">else</span> <a href="#local_level_464"><span class="LIDENT">level</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_before_second_heading_466"><span class="LIDENT">before_second_heading</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_items_467"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_items_460"><span class="LIDENT">items</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span id="local_h_468"><span class="LIDENT">h</span></span> <span class="WHEN">when</span> <a href="#local_h_468"><span class="LIDENT">h</span></a><span class="DOT">.</span><span class="LIDENT">level</span> <span class="INFIXOP0">>=</span> <a href="#local_max_level_465"><span class="LIDENT">max_level</span></a> <span class="MINUSGREATER">-></span> <span class="UIDENT">Stop_and_keep</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_i_469"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Accum</span> <span class="LBRACKET">[</span> <a href="#local_i_469"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_o_450"><span class="LIDENT">o</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><a href="#local_until_first_heading_449"><span class="LIDENT">until_first_heading</span></a><span class="COMMA">,</span> <a href="#local_items_451"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_level_455"><span class="LIDENT">level</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_max_level_456"><span class="LIDENT">max_level</span></span> <span class="EQUAL">=</span> <span class="IF">if</span> <a href="#local_level_455"><span class="LIDENT">level</span></a> <span class="EQUAL">=</span> <span class="INT">1</span> <span class="THEN">then</span> <span class="INT">2</span> <span class="ELSE">else</span> <a href="#local_level_455"><span class="LIDENT">level</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_before_second_heading_457"><span class="LIDENT">before_second_heading</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_items_458"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Doctree</span><span class="DOT">.</span><span class="UIDENT">Take</span><span class="DOT">.</span><span class="LIDENT">until</span> <a href="#local_items_451"><span class="LIDENT">items</span></a> <span class="LABEL">~classify:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Heading</span> <span id="local_h_459"><span class="LIDENT">h</span></span> <span class="WHEN">when</span> <a href="#local_h_459"><span class="LIDENT">h</span></a><span class="DOT">.</span><span class="LIDENT">level</span> <span class="INFIXOP0">>=</span> <a href="#local_max_level_456"><span class="LIDENT">max_level</span></a> <span class="MINUSGREATER">-></span> <span class="UIDENT">Stop_and_keep</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_i_460"><span class="LIDENT">i</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Accum</span> <span class="LBRACKET">[</span> <a href="#local_i_460"><span class="LIDENT">i</span></a> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_header_470"><span class="LIDENT">header</span></span> <span class="EQUAL">=</span> <a href="#local_until_first_heading_458"><span class="LIDENT">until_first_heading</span></a> <span class="INFIXOP1">@</span> <a href="#local_before_second_heading_466"><span class="LIDENT">before_second_heading</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_header_470"><span class="LIDENT">header</span></a><span class="COMMA">,</span> <a href="#local_items_467"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_header_461"><span class="LIDENT">header</span></span> <span class="EQUAL">=</span> <a href="#local_until_first_heading_449"><span class="LIDENT">until_first_heading</span></a> <span class="INFIXOP1">@</span> <a href="#local_before_second_heading_457"><span class="LIDENT">before_second_heading</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_header_461"><span class="LIDENT">header</span></a><span class="COMMA">,</span> <a href="#local_items_458"><span class="LIDENT">items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Class"><span class="MODULE">module</span> <span class="UIDENT">Class</span> <span class="COLON">:</span> <span class="SIG">sig</span><span class="EOL"> | |
| @@ -2893,192 +2893,192 @@ | |
| </span><span class="EOL"> | |
| </span> <span id="module-Make.module-Class.val-class_type"><span class="VAL">val</span> <span class="LIDENT">class_type</span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassType</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span></span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></span> <span class="LPAREN">(</span><span id="local_cte_471"><span class="LIDENT">cte</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassType</span><span class="DOT">.</span><span class="LIDENT">expr</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_cte_471"><span class="LIDENT">cte</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_path_472"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_473"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link_474"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_472"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_args_473"><span class="LIDENT">args</span></a> <a href="#local_link_474"><span class="LIDENT">link</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></span> <span class="LPAREN">(</span><span id="local_cte_462"><span class="LIDENT">cte</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassType</span><span class="DOT">.</span><span class="LIDENT">expr</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_cte_462"><span class="LIDENT">cte</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constr</span> <span class="LPAREN">(</span><span id="local_path_463"><span class="LIDENT">path</span></span><span class="COMMA">,</span> <span id="local_args_464"><span class="LIDENT">args</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link_465"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_path_463"><span class="LIDENT">path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Type_expression.val-format_type_path"><span class="LIDENT">format_type_path</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_args_464"><span class="LIDENT">args</span></a> <a href="#local_link_465"><span class="LIDENT">link</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">open_tag</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ... "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">close_tag</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-method_"><span class="LIDENT">method_</span></span> <span class="LPAREN">(</span><span id="local_t_475"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Method</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_476"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_virtual__477"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-method_"><span class="LIDENT">method_</span></span> <span class="LPAREN">(</span><span id="local_t_466"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Method</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_467"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_virtual__468"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_private__478"><span class="LIDENT">private_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"private"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_private__469"><span class="LIDENT">private_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">private_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"private"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_479"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_470"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"method"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_private__478"><span class="LIDENT">private_</span></a> <span class="INFIXOP2">++</span> <a href="#local_virtual__477"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_476"><span class="LIDENT">name</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"method"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_private__469"><span class="LIDENT">private_</span></a> <span class="INFIXOP2">++</span> <a href="#local_virtual__468"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_467"><span class="LIDENT">name</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_480"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"method"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_481"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_482"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_475"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_480"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_481"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_482"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_479"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_471"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"method"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_472"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_473"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_466"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_471"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_472"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_473"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_470"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-instance_variable"><span class="LIDENT">instance_variable</span></span> <span class="LPAREN">(</span><span id="local_t_483"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">InstanceVariable</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_484"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_virtual__485"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-instance_variable"><span class="LIDENT">instance_variable</span></span> <span class="LPAREN">(</span><span id="local_t_474"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">InstanceVariable</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_475"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_virtual__476"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_mutable__486"><span class="LIDENT">mutable_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">mutable_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"mutable"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_mutable__477"><span class="LIDENT">mutable_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">mutable_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"mutable"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_487"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_478"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"val"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_mutable__486"><span class="LIDENT">mutable_</span></a> <span class="INFIXOP2">++</span> <a href="#local_virtual__485"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_484"><span class="LIDENT">name</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"val"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_mutable__477"><span class="LIDENT">mutable_</span></a> <span class="INFIXOP2">++</span> <a href="#local_virtual__476"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_475"><span class="LIDENT">name</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_488"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"value"</span><span class="SEMI">;</span> <span class="STRING">"instance-variable"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_489"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_490"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_483"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_488"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_489"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_490"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_487"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_479"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"value"</span><span class="SEMI">;</span> <span class="STRING">"instance-variable"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_480"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_481"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_474"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_479"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_480"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_481"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_478"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-inherit_"><span class="LIDENT">inherit_</span></span> <span class="LPAREN">(</span><span id="local_ih_491"><span class="LIDENT">ih</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="UIDENT">Inherit</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cte_492"><span class="LIDENT">cte</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_ih_491"><span class="LIDENT">ih</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-inherit_"><span class="LIDENT">inherit_</span></span> <span class="LPAREN">(</span><span id="local_ih_482"><span class="LIDENT">ih</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="UIDENT">Inherit</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cte_483"><span class="LIDENT">cte</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_ih_482"><span class="LIDENT">ih</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="ASSERT">assert</span> <span class="FALSE">false</span> <span class="COMMENT">(* Bold. *)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_cty_493"><span class="LIDENT">cty</span></span> <span class="MINUSGREATER">-></span> <a href="#local_cty_493"><span class="LIDENT">cty</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_cty_484"><span class="LIDENT">cty</span></span> <span class="MINUSGREATER">-></span> <a href="#local_cty_484"><span class="LIDENT">cty</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_494"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"inherit"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_cte_492"><span class="LIDENT">cte</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_485"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"inherit"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_cte_483"><span class="LIDENT">cte</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_495"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"inherit"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_496"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_497"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_ih_491"><span class="LIDENT">ih</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_495"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_496"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_497"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_494"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_486"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"inherit"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_487"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_488"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_ih_482"><span class="LIDENT">ih</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_486"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_487"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_488"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_485"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-constraint_"><span class="LIDENT">constraint_</span></span> <span class="LPAREN">(</span><span id="local_cst_498"><span class="LIDENT">cst</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="UIDENT">Constraint</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_499"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></a> <span class="LBRACKET">[</span> <span class="LPAREN">(</span><a href="#local_cst_498"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">left</span><span class="COMMA">,</span> <a href="#local_cst_498"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">right</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-constraint_"><span class="LIDENT">constraint_</span></span> <span class="LPAREN">(</span><span id="local_cst_489"><span class="LIDENT">cst</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="UIDENT">Constraint</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_490"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_declaration.val-format_constraints"><span class="LIDENT">format_constraints</span></a> <span class="LBRACKET">[</span> <span class="LPAREN">(</span><a href="#local_cst_489"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">left</span><span class="COMMA">,</span> <a href="#local_cst_489"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">right</span><span class="RPAREN">)</span> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_500"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_501"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_502"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_cst_498"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_500"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_501"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_502"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_499"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_491"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_492"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_493"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_cst_489"><span class="LIDENT">cst</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_491"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_492"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_493"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_490"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></span> <span class="LPAREN">(</span><span id="local_c_503"><span class="LIDENT">c</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_504"><span class="LIDENT">loop</span></span> <span id="local_l_505"><span class="LIDENT">l</span></span> <span id="local_acc_items_506"><span class="LIDENT">acc_items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_l_505"><span class="LIDENT">l</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_items_506"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_item_507"><span class="LIDENT">item</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_508"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_continue_509"><span class="LIDENT">continue</span></span> <span id="local_item_510"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <a href="#local_loop_504"><span class="LIDENT">loop</span></a> <a href="#local_rest_508"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><a href="#local_item_510"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_items_506"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="LPAREN">(</span><a href="#local_item_507"><span class="LIDENT">item</span></a> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="LIDENT">item</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Inherit</span> <span id="local_cty_511"><span class="LIDENT">cty</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_509"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-inherit_"><span class="LIDENT">inherit_</span></a> <a href="#local_cty_511"><span class="LIDENT">cty</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Method</span> <span id="local_m_512"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_509"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-method_"><span class="LIDENT">method_</span></a> <a href="#local_m_512"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">InstanceVariable</span> <span id="local_v_513"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_509"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-instance_variable"><span class="LIDENT">instance_variable</span></a> <a href="#local_v_513"><span class="LIDENT">v</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Constraint</span> <span id="local_cst_514"><span class="LIDENT">cst</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_509"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-constraint_"><span class="LIDENT">constraint_</span></a> <a href="#local_cst_514"><span class="LIDENT">cst</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></span> <span class="LPAREN">(</span><span id="local_c_494"><span class="LIDENT">c</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_495"><span class="LIDENT">loop</span></span> <span id="local_l_496"><span class="LIDENT">l</span></span> <span id="local_acc_items_497"><span class="LIDENT">acc_items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_l_496"><span class="LIDENT">l</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_items_497"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_item_498"><span class="LIDENT">item</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_499"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_continue_500"><span class="LIDENT">continue</span></span> <span id="local_item_501"><span class="LIDENT">item</span></span> <span class="EQUAL">=</span> <a href="#local_loop_495"><span class="LIDENT">loop</span></a> <a href="#local_rest_499"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><a href="#local_item_501"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_items_497"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="LPAREN">(</span><a href="#local_item_498"><span class="LIDENT">item</span></a> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="LIDENT">item</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Inherit</span> <span id="local_cty_502"><span class="LIDENT">cty</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_500"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-inherit_"><span class="LIDENT">inherit_</span></a> <a href="#local_cty_502"><span class="LIDENT">cty</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Method</span> <span id="local_m_503"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_500"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-method_"><span class="LIDENT">method_</span></a> <a href="#local_m_503"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">InstanceVariable</span> <span id="local_v_504"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_500"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-instance_variable"><span class="LIDENT">instance_variable</span></a> <a href="#local_v_504"><span class="LIDENT">v</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Constraint</span> <span id="local_cst_505"><span class="LIDENT">cst</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_500"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-constraint_"><span class="LIDENT">constraint_</span></a> <a href="#local_cst_505"><span class="LIDENT">cst</span></a><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Stop</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rest_515"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">skip_until</span> <a href="#local_rest_508"><span class="LIDENT">rest</span></a> <span class="LABEL">~p:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rest_506"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">skip_until</span> <a href="#local_rest_499"><span class="LIDENT">rest</span></a> <span class="LABEL">~p:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassSignature</span><span class="DOT">.</span><span class="UIDENT">Comment</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Stop</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_504"><span class="LIDENT">loop</span></a> <a href="#local_rest_515"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_506"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Docs</span> <span id="local_c_516"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_items_517"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_c_516"><span class="LIDENT">c</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_504"><span class="LIDENT">loop</span></a> <a href="#local_rest_508"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_517"><span class="LIDENT">items</span></a> <a href="#local_acc_items_506"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_loop_495"><span class="LIDENT">loop</span></a> <a href="#local_rest_506"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_497"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Docs</span> <span id="local_c_507"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_items_508"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_c_507"><span class="LIDENT">c</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_loop_495"><span class="LIDENT">loop</span></a> <a href="#local_rest_499"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_508"><span class="LIDENT">items</span></a> <a href="#local_acc_items_497"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* FIXME: use [t.self] *)</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_c_503"><span class="LIDENT">c</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="COMMA">,</span> <a href="#local_loop_504"><span class="LIDENT">loop</span></a> <a href="#local_c_503"><span class="LIDENT">c</span></a><span class="DOT">.</span><span class="LIDENT">items</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_c_494"><span class="LIDENT">c</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="COMMA">,</span> <a href="#local_loop_495"><span class="LIDENT">loop</span></a> <a href="#local_c_494"><span class="LIDENT">c</span></a><span class="DOT">.</span><span class="LIDENT">items</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></span> <span class="LPAREN">(</span><span id="local_cd_518"><span class="LIDENT">cd</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">decl</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_cd_518"><span class="LIDENT">cd</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ClassType</span> <span id="local_expr_519"><span class="LIDENT">expr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_expr_519"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></span> <span class="LPAREN">(</span><span id="local_cd_509"><span class="LIDENT">cd</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">decl</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_cd_509"><span class="LIDENT">cd</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ClassType</span> <span id="local_expr_510"><span class="LIDENT">expr</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_expr_510"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| </span> <span class="COMMENT">(* TODO: factorize the following with [type_expr] *)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_src_520"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_521"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_src_511"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_512"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_520"><span class="LIDENT">src</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_511"><span class="LIDENT">src</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_dst_521"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span id="local_lbl_522"><span class="LIDENT">lbl</span></span><span class="COMMA">,</span> <span id="local_src_523"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_524"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_dst_512"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Arrow</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span id="local_lbl_513"><span class="LIDENT">lbl</span></span><span class="COMMA">,</span> <span id="local_src_514"><span class="LIDENT">src</span></span><span class="COMMA">,</span> <span id="local_dst_515"><span class="LIDENT">dst</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#val-label"><span class="LIDENT">label</span></a> <a href="#local_lbl_522"><span class="LIDENT">lbl</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_523"><span class="LIDENT">src</span></a><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#val-label"><span class="LIDENT">label</span></a> <a href="#local_lbl_513"><span class="LIDENT">lbl</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">":"</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Type_expression.val-type_expr"><span class="LIDENT">type_expr</span></a> <span class="LABEL">~needs_parentheses:</span><span class="TRUE">true</span> <a href="#local_src_514"><span class="LIDENT">src</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">arrow</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_dst_524"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_dst_515"><span class="LIDENT">dst</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_"><span class="LIDENT">class_</span></span> <span class="LPAREN">(</span><span id="local_t_525"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_526"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_527"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">params</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_"><span class="LIDENT">class_</span></span> <span class="LPAREN">(</span><span id="local_t_516"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Class</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_517"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_518"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">params</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="COLONCOLON">::</span> <span class="UNDERSCORE">_</span> <span class="AS">as</span> <span id="local_params_528"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_params_528"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="COLONCOLON">::</span> <span class="UNDERSCORE">_</span> <span class="AS">as</span> <span id="local_params_519"><span class="LIDENT">params</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_params_519"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_virtual__529"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_virtual__520"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_530"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cname_531"><span class="LIDENT">cname</span></span><span class="COMMA">,</span> <span id="local_expansion_532"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_533"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expansion</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_526"><span class="LIDENT">name</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_csig_534"><span class="LIDENT">csig</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_doc_535"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_536"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></a> <a href="#local_csig_534"><span class="LIDENT">csig</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_537"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_page_538"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_530"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_537"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_535"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <a href="#local_items_536"><span class="LIDENT">items</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_521"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cname_522"><span class="LIDENT">cname</span></span><span class="COMMA">,</span> <span id="local_expansion_523"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_524"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expansion</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_517"><span class="LIDENT">name</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_csig_525"><span class="LIDENT">csig</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_doc_526"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_527"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></a> <a href="#local_csig_525"><span class="LIDENT">csig</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_528"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_page_529"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_521"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_528"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_526"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_items_527"><span class="LIDENT">items</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_537"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_526"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <a href="#local_page_538"><span class="LIDENT">page</span></a><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_535"><span class="LIDENT">expansion_doc</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_528"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_517"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <a href="#local_page_529"><span class="LIDENT">page</span></a><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_526"><span class="LIDENT">expansion_doc</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_539"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_530"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_decl"><span class="LIDENT">class_decl</span></a> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cd_540"><span class="LIDENT">cd</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cd_531"><span class="LIDENT">cd</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="COMMA">,</span> <span class="STRING">"object"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_expansion_532"><span class="LIDENT">expansion</span></a> <a href="#local_summary_539"><span class="LIDENT">summary</span></a><span class="EOL"> | |
| +</span> <a href="#local_expansion_523"><span class="LIDENT">expansion</span></a> <a href="#local_summary_530"><span class="LIDENT">summary</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_541"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"class"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_virtual__529"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <a href="#local_params_527"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_cname_531"><span class="LIDENT">cname</span></a> <span class="INFIXOP1">@</span> <a href="#local_cd_540"><span class="LIDENT">cd</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_532"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"class"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_virtual__520"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <a href="#local_params_518"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_cname_522"><span class="LIDENT">cname</span></a> <span class="INFIXOP1">@</span> <a href="#local_cd_531"><span class="LIDENT">cd</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_542"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"class"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_543"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_544"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_525"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_533"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_542"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_543"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_544"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_541"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_530"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_533"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"class"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_534"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_535"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_516"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_524"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_533"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_534"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_535"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_532"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_521"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_type"><span class="LIDENT">class_type</span></span> <span class="LPAREN">(</span><span id="local_t_545"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassType</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_546"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_547"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">params</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_virtual__548"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="IF">if</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Class.val-class_type"><span class="LIDENT">class_type</span></span> <span class="LPAREN">(</span><span id="local_t_536"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ClassType</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_537"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_538"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Type_declaration.val-format_params"><span class="LIDENT">format_params</span></a> <span class="LABEL">~delim:</span><span class="BACKQUOTE">`</span><span class="LIDENT">brackets</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">params</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_virtual__539"><span class="LIDENT">virtual_</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="IF">if</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">virtual_</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"virtual"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_549"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_cname_550"><span class="LIDENT">cname</span></span><span class="COMMA">,</span> <span id="local_expansion_551"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_552"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expansion</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_546"><span class="LIDENT">name</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_csig_553"><span class="LIDENT">csig</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_554"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_doc_555"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_556"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></a> <a href="#local_csig_553"><span class="LIDENT">csig</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_page_557"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_549"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_554"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_555"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <a href="#local_items_556"><span class="LIDENT">items</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_540"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_cname_541"><span class="LIDENT">cname</span></span><span class="COMMA">,</span> <span id="local_expansion_542"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_543"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expansion</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_537"><span class="LIDENT">name</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_csig_544"><span class="LIDENT">csig</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_545"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_doc_546"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_547"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Class.val-class_signature"><span class="LIDENT">class_signature</span></a> <a href="#local_csig_544"><span class="LIDENT">csig</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_page_548"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_540"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_545"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_546"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_items_547"><span class="LIDENT">items</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_554"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_546"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <a href="#local_page_557"><span class="LIDENT">page</span></a><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_555"><span class="LIDENT">expansion_doc</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="INFIXOP1">@@</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_545"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_537"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <a href="#local_page_548"><span class="LIDENT">page</span></a><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_546"><span class="LIDENT">expansion_doc</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_558"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" = "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expr_559"><span class="LIDENT">expr</span></span> <span class="EQUAL">=</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="LPAREN">(</span><span class="STRING">" = "</span><span class="COMMA">,</span> <span class="STRING">"object"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span> <a href="#local_expansion_551"><span class="LIDENT">expansion</span></a> <a href="#local_summary_558"><span class="LIDENT">summary</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_560"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_549"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" = "</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Class.val-class_type_expr"><span class="LIDENT">class_type_expr</span></a> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expr_550"><span class="LIDENT">expr</span></span> <span class="EQUAL">=</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="LPAREN">(</span><span class="STRING">" = "</span><span class="COMMA">,</span> <span class="STRING">"object"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span> <a href="#local_expansion_542"><span class="LIDENT">expansion</span></a> <a href="#local_summary_549"><span class="LIDENT">summary</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_551"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"class"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#local_virtual__548"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <a href="#local_params_547"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_cname_550"><span class="LIDENT">cname</span></a> <span class="INFIXOP1">@</span> <a href="#local_expr_559"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#local_virtual__539"><span class="LIDENT">virtual_</span></a> <span class="INFIXOP2">++</span> <a href="#local_params_538"><span class="LIDENT">params</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_cname_541"><span class="LIDENT">cname</span></a> <span class="INFIXOP1">@</span> <a href="#local_expr_550"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_561"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"class-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_562"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_563"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_545"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_552"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_561"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_562"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_563"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_560"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_549"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_552"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"class-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_553"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_554"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_536"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_543"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_552"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_553"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_554"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_551"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_540"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="END">end</span></span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="OPEN">open</span> <span class="UIDENT">Class</span><span class="EOL"> | |
| @@ -3087,554 +3087,554 @@ | |
| </span> <span id="module-Make.module-Module.val-signature"><span class="VAL">val</span> <span class="LIDENT">signature</span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span> <span class="STAR">*</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span></span><span class="EOL"> | |
| </span> <span class="DOCSTRING">(** Returns [header_doc, content]. *)</span><span class="EOL"> | |
| </span> <span class="END">end</span> <span class="EQUAL">=</span> <span class="STRUCT">struct</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module"><span class="LIDENT">internal_module</span></span> <span id="local_m_564"><span class="LIDENT">m</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module"><span class="LIDENT">internal_module</span></span> <span id="local_m_555"><span class="LIDENT">m</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Module</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_m_564"><span class="LIDENT">m</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_565"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_565"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_m_555"><span class="LIDENT">m</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_556"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_556"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_type"><span class="LIDENT">internal_type</span></span> <span id="local_t_566"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_type"><span class="LIDENT">internal_type</span></span> <span id="local_t_557"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">TypeDecl</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_566"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_567"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_567"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_557"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_558"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">TypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_558"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_value"><span class="LIDENT">internal_value</span></span> <span id="local_v_568"><span class="LIDENT">v</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_value"><span class="LIDENT">internal_value</span></span> <span id="local_v_559"><span class="LIDENT">v</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Value</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_v_568"><span class="LIDENT">v</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Value</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_569"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ValueName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_569"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_v_559"><span class="LIDENT">v</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Value</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_560"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ValueName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_560"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_type"><span class="LIDENT">internal_module_type</span></span> <span id="local_t_570"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_type"><span class="LIDENT">internal_module_type</span></span> <span id="local_t_561"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_570"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ModuleType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_571"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_571"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_561"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ModuleType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_562"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_562"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_substitution"><span class="LIDENT">internal_module_substitution</span></span> <span id="local_t_572"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_substitution"><span class="LIDENT">internal_module_substitution</span></span> <span id="local_t_563"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleSubstitution</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_572"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_573"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_573"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_563"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_564"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_564"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_type_substitution"><span class="LIDENT">internal_module_type_substitution</span></span> <span id="local_t_574"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="module-Make.module-Module.val-internal_module_type_substitution"><span class="LIDENT">internal_module_type_substitution</span></span> <span id="local_t_565"><span class="LIDENT">t</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleTypeSubstitution</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_574"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ModuleType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_575"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_575"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_565"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="DOT">.</span><span class="LIDENT">iv</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="BACKQUOTE">`</span><span class="UIDENT">ModuleType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_name_566"><span class="LIDENT">name</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="UIDENT">ModuleTypeName</span><span class="DOT">.</span><span class="LIDENT">is_internal</span> <a href="#local_name_566"><span class="LIDENT">name</span></a> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></span> <span class="LPAREN">(</span><span id="local_s_576"><span class="LIDENT">s</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_577"><span class="LIDENT">loop</span></span> <span id="local_l_578"><span class="LIDENT">l</span></span> <span id="local_acc_items_579"><span class="LIDENT">acc_items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_l_578"><span class="LIDENT">l</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span id="local_item_580"><span class="LIDENT">item</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_581"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_continue_582"><span class="LIDENT">continue</span></span> <span class="LPAREN">(</span><span id="local_item_583"><span class="LIDENT">item</span></span> <span class="COLON">:</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><a href="#local_item_583"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <span class="LPAREN">(</span><a href="#local_item_580"><span class="LIDENT">item</span></a> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">item</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_m_584"><span class="LIDENT">m</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module"><span class="LIDENT">internal_module</span></a> <a href="#local_m_584"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_585"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_type"><span class="LIDENT">internal_type</span></a> <a href="#local_t_585"><span class="LIDENT">t</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_v_586"><span class="LIDENT">v</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_value"><span class="LIDENT">internal_value</span></a> <a href="#local_v_586"><span class="LIDENT">v</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_m_587"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_type"><span class="LIDENT">internal_module_type</span></a> <a href="#local_m_587"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleSubstitution</span> <span id="local_m_588"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_substitution"><span class="LIDENT">internal_module_substitution</span></a> <a href="#local_m_588"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleTypeSubstitution</span> <span id="local_m_589"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_type_substitution"><span class="LIDENT">internal_module_type_substitution</span></a> <a href="#local_m_589"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></span> <span class="LPAREN">(</span><span id="local_s_567"><span class="LIDENT">s</span></span> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_loop_568"><span class="LIDENT">loop</span></span> <span id="local_l_569"><span class="LIDENT">l</span></span> <span id="local_acc_items_570"><span class="LIDENT">acc_items</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_l_569"><span class="LIDENT">l</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev</span> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span id="local_item_571"><span class="LIDENT">item</span></span> <span class="COLONCOLON">::</span> <span id="local_rest_572"><span class="LIDENT">rest</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_continue_573"><span class="LIDENT">continue</span></span> <span class="LPAREN">(</span><span id="local_item_574"><span class="LIDENT">item</span></span> <span class="COLON">:</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><a href="#local_item_574"><span class="LIDENT">item</span></a> <span class="COLONCOLON">::</span> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <span class="LPAREN">(</span><a href="#local_item_571"><span class="LIDENT">item</span></a> <span class="COLON">:</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">item</span><span class="RPAREN">)</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_m_575"><span class="LIDENT">m</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module"><span class="LIDENT">internal_module</span></a> <a href="#local_m_575"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Type</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_t_576"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_type"><span class="LIDENT">internal_type</span></a> <a href="#local_t_576"><span class="LIDENT">t</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_v_577"><span class="LIDENT">v</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_value"><span class="LIDENT">internal_value</span></a> <a href="#local_v_577"><span class="LIDENT">v</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_m_578"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_type"><span class="LIDENT">internal_module_type</span></a> <a href="#local_m_578"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleSubstitution</span> <span id="local_m_579"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_substitution"><span class="LIDENT">internal_module_substitution</span></a> <a href="#local_m_579"><span class="LIDENT">m</span></a> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleTypeSubstitution</span> <span id="local_m_580"><span class="LIDENT">m</span></span> <span class="WHEN">when</span> <a href="#module-Make.module-Module.val-internal_module_type_substitution"><span class="LIDENT">internal_module_type_substitution</span></a> <a href="#local_m_580"><span class="LIDENT">m</span></a><span class="EOL"> | |
| </span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleTypeSubstitution</span> <span id="local_m_590"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_type_substitution"><span class="LIDENT">module_type_substitution</span></a> <a href="#local_m_590"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_m_591"><span class="LIDENT">m</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_"><span class="LIDENT">module_</span></a> <a href="#local_m_591"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_m_592"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_type"><span class="LIDENT">module_type</span></a> <a href="#local_m_592"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_c_593"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-class_"><span class="LIDENT">class_</span></a> <a href="#local_c_593"><span class="LIDENT">c</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_c_594"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-class_type"><span class="LIDENT">class_type</span></a> <a href="#local_c_594"><span class="LIDENT">c</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Include</span> <span id="local_m_595"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-include_"><span class="LIDENT">include_</span></a> <a href="#local_m_595"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleSubstitution</span> <span id="local_m_596"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_substitution"><span class="LIDENT">module_substitution</span></a> <a href="#local_m_596"><span class="LIDENT">m</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeSubstitution</span> <span id="local_t_597"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></a> <span class="LABEL">~is_substitution:</span><span class="TRUE">true</span> <span class="LPAREN">(</span><span class="UIDENT">Ordinary</span><span class="COMMA">,</span> <a href="#local_t_597"><span class="LIDENT">t</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Type</span> <span class="LPAREN">(</span><span id="local_r_598"><span class="LIDENT">r</span></span><span class="COMMA">,</span> <span id="local_t_599"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></a> <span class="LPAREN">(</span><a href="#local_r_598"><span class="LIDENT">r</span></a><span class="COMMA">,</span> <a href="#local_t_599"><span class="LIDENT">t</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypExt</span> <span id="local_e_600"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-extension"><span class="LIDENT">extension</span></a> <a href="#local_e_600"><span class="LIDENT">e</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Exception</span> <span id="local_e_601"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-exn"><span class="LIDENT">exn</span></a> <a href="#local_e_601"><span class="LIDENT">e</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_v_602"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_582"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Value.val-value"><span class="LIDENT">value</span></a> <a href="#local_v_602"><span class="LIDENT">v</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Open</span> <span id="local_o_603"><span class="LIDENT">o</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_items_604"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_o_603"><span class="LIDENT">o</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_604"><span class="LIDENT">items</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleTypeSubstitution</span> <span id="local_m_581"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_type_substitution"><span class="LIDENT">module_type_substitution</span></a> <a href="#local_m_581"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Module</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_m_582"><span class="LIDENT">m</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_"><span class="LIDENT">module_</span></a> <a href="#local_m_582"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_m_583"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_type"><span class="LIDENT">module_type</span></a> <a href="#local_m_583"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Class</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_c_584"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-class_"><span class="LIDENT">class_</span></a> <a href="#local_c_584"><span class="LIDENT">c</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ClassType</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_c_585"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Class.val-class_type"><span class="LIDENT">class_type</span></a> <a href="#local_c_585"><span class="LIDENT">c</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Include</span> <span id="local_m_586"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-include_"><span class="LIDENT">include_</span></a> <a href="#local_m_586"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleSubstitution</span> <span id="local_m_587"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Module.val-module_substitution"><span class="LIDENT">module_substitution</span></a> <a href="#local_m_587"><span class="LIDENT">m</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeSubstitution</span> <span id="local_t_588"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></a> <span class="LABEL">~is_substitution:</span><span class="TRUE">true</span> <span class="LPAREN">(</span><span class="UIDENT">Ordinary</span><span class="COMMA">,</span> <a href="#local_t_588"><span class="LIDENT">t</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Type</span> <span class="LPAREN">(</span><span id="local_r_589"><span class="LIDENT">r</span></span><span class="COMMA">,</span> <span id="local_t_590"><span class="LIDENT">t</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-type_decl"><span class="LIDENT">type_decl</span></a> <span class="LPAREN">(</span><a href="#local_r_589"><span class="LIDENT">r</span></a><span class="COMMA">,</span> <a href="#local_t_590"><span class="LIDENT">t</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypExt</span> <span id="local_e_591"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-extension"><span class="LIDENT">extension</span></a> <a href="#local_e_591"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Exception</span> <span id="local_e_592"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Type_declaration.val-exn"><span class="LIDENT">exn</span></a> <a href="#local_e_592"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Value</span> <span id="local_v_593"><span class="LIDENT">v</span></span> <span class="MINUSGREATER">-></span> <a href="#local_continue_573"><span class="LIDENT">continue</span></a> <span class="INFIXOP1">@@</span> <a href="#module-Make.module-Value.val-value"><span class="LIDENT">value</span></a> <a href="#local_v_593"><span class="LIDENT">v</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Open</span> <span id="local_o_594"><span class="LIDENT">o</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_items_595"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_o_594"><span class="LIDENT">o</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_595"><span class="LIDENT">items</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Stop</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_rest_605"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">skip_until</span> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <span class="LABEL">~p:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_rest_596"><span class="LIDENT">rest</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">skip_until</span> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <span class="LABEL">~p:</span><span class="LPAREN">(</span><span class="FUNCTION">function</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="UIDENT">Comment</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Stop</span> <span class="MINUSGREATER">-></span> <span class="TRUE">true</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_605"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Docs</span> <span id="local_c_606"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_items_607"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_c_606"><span class="LIDENT">c</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_rest_581"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_607"><span class="LIDENT">items</span></a> <a href="#local_acc_items_579"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_596"><span class="LIDENT">rest</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Comment</span> <span class="LPAREN">(</span><span class="BACKQUOTE">`</span><span class="UIDENT">Docs</span> <span id="local_c_597"><span class="LIDENT">c</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_items_598"><span class="LIDENT">items</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Sectioning.val-comment_items"><span class="UIDENT">Sectioning</span><span class="DOT">.</span><span class="LIDENT">comment_items</span></a> <a href="#local_c_597"><span class="LIDENT">c</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_rest_572"><span class="LIDENT">rest</span></a> <span class="LPAREN">(</span><span class="UIDENT">List</span><span class="DOT">.</span><span class="LIDENT">rev_append</span> <a href="#local_items_598"><span class="LIDENT">items</span></a> <a href="#local_acc_items_570"><span class="LIDENT">acc_items</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="LIDENT">extract_signature_doc</span> <a href="#local_s_576"><span class="LIDENT">s</span></a><span class="COMMA">,</span> <a href="#local_loop_577"><span class="LIDENT">loop</span></a> <a href="#local_s_576"><span class="LIDENT">s</span></a><span class="DOT">.</span><span class="LIDENT">items</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="LIDENT">extract_signature_doc</span> <a href="#local_s_567"><span class="LIDENT">s</span></a><span class="COMMA">,</span> <a href="#local_loop_568"><span class="LIDENT">loop</span></a> <a href="#local_s_567"><span class="LIDENT">s</span></a><span class="DOT">.</span><span class="LIDENT">items</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-functor_parameter"><span class="LIDENT">functor_parameter</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">FunctorParameter</span><span class="DOT">.</span><span class="LIDENT">parameter</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_arg_608"><span class="LIDENT">arg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_arg_599"><span class="LIDENT">arg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LET">let</span> <span class="OPEN">open</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">FunctorParameter</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_609"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_render_ty_610"><span class="LIDENT">render_ty</span></span> <span class="EQUAL">=</span> <a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modtyp_611"><span class="LIDENT">modtyp</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_render_ty_610"><span class="LIDENT">render_ty</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_600"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_render_ty_601"><span class="LIDENT">render_ty</span></span> <span class="EQUAL">=</span> <a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modtyp_602"><span class="LIDENT">modtyp</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_render_ty_601"><span class="LIDENT">render_ty</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_612"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_mod_decl_613"><span class="LIDENT">mod_decl</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_603"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_mod_decl_604"><span class="LIDENT">mod_decl</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_614"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_modname_614"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_modtyp_611"><span class="LIDENT">modtyp</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_615"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_616"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_617"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_arg_608"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_618"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_617"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_609"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_type_with_expansion_619"><span class="LIDENT">type_with_expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_620"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="LABEL">~source_anchor:</span><span class="UIDENT">None</span> <a href="#local_url_617"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_expansion_doc_615"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <a href="#local_items_616"><span class="LIDENT">items</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_605"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="LPAREN">(</span><span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_modname_605"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_modtyp_602"><span class="LIDENT">modtyp</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_606"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_607"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_608"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_arg_599"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_609"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_608"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_name_600"><span class="LIDENT">name</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_type_with_expansion_610"><span class="LIDENT">type_with_expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_611"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="LABEL">~source_anchor:</span><span class="UIDENT">None</span> <a href="#local_url_608"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_expansion_doc_606"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_items_607"><span class="LIDENT">items</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_621"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">render</span> <a href="#local_modtyp_611"><span class="LIDENT">modtyp</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_status_622"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_623"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_612"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">render</span> <a href="#local_modtyp_602"><span class="LIDENT">modtyp</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_status_613"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_614"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"sig"</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LBRACKET">[</span> <span class="UIDENT">Subpage</span> <span class="LBRACE">{</span> <a href="#local_content_620"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_status_622"><span class="LIDENT">status</span></a> <span class="RBRACE">}</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="LBRACKET">[</span> <span class="UIDENT">Subpage</span> <span class="LBRACE">{</span> <a href="#local_content_611"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_status_613"><span class="LIDENT">status</span></a> <span class="RBRACE">}</span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">DocumentedSrc</span><span class="DOT">.</span><span class="EOL"> | |
| </span> <span class="LBRACKET">[</span><span class="EOL"> | |
| </span> <span class="UIDENT">Alternative</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Expansion</span> <span class="LBRACE">{</span> <span class="LIDENT">status</span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span><span class="SEMI">;</span> <a href="#local_summary_621"><span class="LIDENT">summary</span></a><span class="SEMI">;</span> <a href="#local_url_617"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_expansion_623"><span class="LIDENT">expansion</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Expansion</span> <span class="LBRACE">{</span> <span class="LIDENT">status</span> <span class="EQUAL">=</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span><span class="SEMI">;</span> <a href="#local_summary_612"><span class="LIDENT">summary</span></a><span class="SEMI">;</span> <a href="#local_url_608"><span class="LIDENT">url</span></a><span class="SEMI">;</span> <a href="#local_expansion_614"><span class="LIDENT">expansion</span></a> <span class="RBRACE">}</span><span class="RPAREN">)</span><span class="SEMI">;</span><span class="EOL"> | |
| </span> <span class="RBRACKET">]</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_modname_618"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <a href="#local_type_with_expansion_619"><span class="LIDENT">type_with_expansion</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_modname_609"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <a href="#local_type_with_expansion_610"><span class="LIDENT">type_with_expansion</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_modname_612"><span class="LIDENT">modname</span></a> <span class="INFIXOP1">@</span> <a href="#local_mod_decl_613"><span class="LIDENT">mod_decl</span></a><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_modname_603"><span class="LIDENT">modname</span></a> <span class="INFIXOP1">@</span> <a href="#local_mod_decl_604"><span class="LIDENT">mod_decl</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_substitution"><span class="LIDENT">module_substitution</span></span> <span class="LPAREN">(</span><span id="local_t_624"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleSubstitution</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_name_625"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_624"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_path_626"><span class="LIDENT">path</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_t_624"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_627"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_substitution"><span class="LIDENT">module_substitution</span></span> <span class="LPAREN">(</span><span id="local_t_615"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleSubstitution</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_name_616"><span class="LIDENT">name</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_615"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_path_617"><span class="LIDENT">path</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_t_615"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_618"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_625"><span class="LIDENT">name</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" :="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#local_path_626"><span class="LIDENT">path</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_name_616"><span class="LIDENT">name</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" :="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#local_path_617"><span class="LIDENT">path</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_628"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-substitution"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_629"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_624"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_630"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_624"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_628"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_629"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_630"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_627"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_619"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-substitution"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_620"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_615"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_621"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">to_ir</span> <a href="#local_t_615"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_619"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_620"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_621"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_618"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type_substitution"><span class="LIDENT">module_type_substitution</span></span> <span class="LPAREN">(</span><span id="local_t_631"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleTypeSubstitution</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type_substitution"><span class="LIDENT">module_type_substitution</span></span> <span class="LPAREN">(</span><span id="local_t_622"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleTypeSubstitution</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_prefix_632"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_prefix_623"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_633"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_634"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_635"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_636"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_mty_637"><span class="LIDENT">mty</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></a> <span class="LABEL">~subst:</span><span class="TRUE">true</span> <span class="TILDE">~</span><a href="#local_source_anchor_633"><span class="LIDENT">source_anchor</span></a> <a href="#local_modname_634"><span class="LIDENT">modname</span></a> <a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span><span class="RPAREN">)</span> <a href="#local_prefix_632"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_624"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_625"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_626"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_627"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_mty_628"><span class="LIDENT">mty</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></a> <span class="LABEL">~subst:</span><span class="TRUE">true</span> <span class="TILDE">~</span><a href="#local_source_anchor_624"><span class="LIDENT">source_anchor</span></a> <a href="#local_modname_625"><span class="LIDENT">modname</span></a> <a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">manifest</span><span class="RPAREN">)</span> <a href="#local_prefix_623"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_638"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_prefix_632"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_635"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_mty_637"><span class="LIDENT">mty</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_629"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_prefix_623"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_626"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_mty_628"><span class="LIDENT">mty</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Mod</span><span class="DOT">.</span><span class="LIDENT">close_tag_semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_639"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_640"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_641"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_631"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_636"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_639"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_640"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_641"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_638"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_633"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_630"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_631"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_632"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_622"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_627"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_630"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_631"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_632"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_629"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_624"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-simple_expansion"><span class="LIDENT">simple_expansion</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">simple_expansion</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span> <span class="STAR">*</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_t_642"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_extract_functor_params_643"><span class="LIDENT">extract_functor_params</span></span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span id="local_f_644"><span class="LIDENT">f</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">simple_expansion</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_f_644"><span class="LIDENT">f</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_645"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <a href="#local_sg_645"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_p_646"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span id="local_expansion_647"><span class="LIDENT">expansion</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_add_to_648"><span class="LIDENT">add_to</span></span> <span id="local_params_649"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_p_646"><span class="LIDENT">p</span></a> <span class="WITH">with</span> <span class="UIDENT">Unit</span> <span class="MINUSGREATER">-></span> <a href="#local_params_649"><span class="LIDENT">params</span></a> <span class="BAR">|</span> <span class="UIDENT">Named</span> <span id="local_p_650"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <a href="#local_p_650"><span class="LIDENT">p</span></a> <span class="COLONCOLON">::</span> <a href="#local_params_649"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_t_633"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_extract_functor_params_634"><span class="LIDENT">extract_functor_params</span></span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span id="local_f_635"><span class="LIDENT">f</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">simple_expansion</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_f_635"><span class="LIDENT">f</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_636"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">None</span><span class="COMMA">,</span> <a href="#local_sg_636"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_p_637"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span id="local_expansion_638"><span class="LIDENT">expansion</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_add_to_639"><span class="LIDENT">add_to</span></span> <span id="local_params_640"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_p_637"><span class="LIDENT">p</span></a> <span class="WITH">with</span> <span class="UIDENT">Unit</span> <span class="MINUSGREATER">-></span> <a href="#local_params_640"><span class="LIDENT">params</span></a> <span class="BAR">|</span> <span class="UIDENT">Named</span> <span id="local_p_641"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <a href="#local_p_641"><span class="LIDENT">p</span></a> <span class="COLONCOLON">::</span> <a href="#local_params_640"><span class="LIDENT">params</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_651"><span class="LIDENT">params</span></span><span class="COMMA">,</span> <span id="local_sg_652"><span class="LIDENT">sg</span></span> <span class="EQUAL">=</span> <a href="#local_extract_functor_params_643"><span class="LIDENT">extract_functor_params</span></a> <a href="#local_expansion_647"><span class="LIDENT">expansion</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_653"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_params_651"><span class="LIDENT">params</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_p_654"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <a href="#local_p_654"><span class="LIDENT">p</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#local_add_to_648"><span class="LIDENT">add_to</span></a> <a href="#local_params_653"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="COMMA">,</span> <a href="#local_sg_652"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_642"><span class="LIDENT">params</span></span><span class="COMMA">,</span> <span id="local_sg_643"><span class="LIDENT">sg</span></span> <span class="EQUAL">=</span> <a href="#local_extract_functor_params_634"><span class="LIDENT">extract_functor_params</span></a> <a href="#local_expansion_638"><span class="LIDENT">expansion</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_644"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span> <span class="MATCH">match</span> <a href="#local_params_642"><span class="LIDENT">params</span></a> <span class="WITH">with</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_p_645"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <a href="#local_p_645"><span class="LIDENT">p</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#local_add_to_639"><span class="LIDENT">add_to</span></a> <a href="#local_params_644"><span class="LIDENT">params</span></a><span class="RPAREN">)</span><span class="COMMA">,</span> <a href="#local_sg_643"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_extract_functor_params_643"><span class="LIDENT">extract_functor_params</span></a> <a href="#local_t_642"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_sg_655"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></a> <a href="#local_sg_655"><span class="LIDENT">sg</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_params_656"><span class="LIDENT">params</span></span><span class="COMMA">,</span> <span id="local_sg_657"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_sg_doc_658"><span class="LIDENT">sg_doc</span></span><span class="COMMA">,</span> <span id="local_content_659"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></a> <a href="#local_sg_657"><span class="LIDENT">sg</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_params_660"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">flatmap</span> <a href="#local_params_656"><span class="LIDENT">params</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_arg_661"><span class="LIDENT">arg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_662"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Module.val-functor_parameter"><span class="LIDENT">functor_parameter</span></a> <a href="#local_arg_661"><span class="LIDENT">arg</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_663"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"parameter"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_664"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_extract_functor_params_634"><span class="LIDENT">extract_functor_params</span></a> <a href="#local_t_633"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span id="local_sg_646"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></a> <a href="#local_sg_646"><span class="LIDENT">sg</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_params_647"><span class="LIDENT">params</span></span><span class="COMMA">,</span> <span id="local_sg_648"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_sg_doc_649"><span class="LIDENT">sg_doc</span></span><span class="COMMA">,</span> <span id="local_content_650"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Module.val-signature"><span class="LIDENT">signature</span></a> <a href="#local_sg_648"><span class="LIDENT">sg</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_params_651"><span class="LIDENT">params</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">flatmap</span> <a href="#local_params_647"><span class="LIDENT">params</span></a> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_arg_652"><span class="LIDENT">arg</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_653"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#module-Make.module-Module.val-functor_parameter"><span class="LIDENT">functor_parameter</span></a> <a href="#local_arg_652"><span class="LIDENT">arg</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_654"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"parameter"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_655"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">Utils</span><span class="DOT">.</span><span class="LIDENT">option_of_result</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LPAREN">(</span><a href="#local_arg_661"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Anchor</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <span class="LPAREN">(</span><a href="#local_arg_652"><span class="LIDENT">arg</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_665"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_656"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span><span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="LBRACKET">[</span><span class="EOL"> | |
| </span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span><span class="EOL"> | |
| -</span> <span class="LBRACE">{</span> <a href="#local_content_662"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_anchor_664"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attr_663"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_doc_665"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="SEMI">;</span><span class="EOL"> | |
| +</span> <span class="LBRACE">{</span> <a href="#local_content_653"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_anchor_655"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_attr_654"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_doc_656"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <span class="LIDENT">source_anchor</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span> <span class="RBRACE">}</span><span class="SEMI">;</span><span class="EOL"> | |
| </span> <span class="RBRACKET">]</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_prelude_666"><span class="LIDENT">prelude</span></span> <span class="EQUAL">=</span> <a href="#val-mk_heading"><span class="LIDENT">mk_heading</span></a> <span class="LABEL">~label:</span><span class="STRING">"parameters"</span> <span class="STRING">"Parameters"</span> <span class="COLONCOLON">::</span> <a href="#local_params_660"><span class="LIDENT">params</span></a><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="local_content_667"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#val-mk_heading"><span class="LIDENT">mk_heading</span></a> <span class="LABEL">~label:</span><span class="STRING">"signature"</span> <span class="STRING">"Signature"</span> <span class="COLONCOLON">::</span> <a href="#local_content_659"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_sg_doc_658"><span class="LIDENT">sg_doc</span></a><span class="COMMA">,</span> <a href="#local_prelude_666"><span class="LIDENT">prelude</span></a> <span class="INFIXOP1">@</span> <a href="#local_content_667"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_prelude_657"><span class="LIDENT">prelude</span></span> <span class="EQUAL">=</span> <a href="#val-mk_heading"><span class="LIDENT">mk_heading</span></a> <span class="LABEL">~label:</span><span class="STRING">"parameters"</span> <span class="STRING">"Parameters"</span> <span class="COLONCOLON">::</span> <a href="#local_params_651"><span class="LIDENT">params</span></a><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="local_content_658"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span> <a href="#val-mk_heading"><span class="LIDENT">mk_heading</span></a> <span class="LABEL">~label:</span><span class="STRING">"signature"</span> <span class="STRING">"Signature"</span> <span class="COLONCOLON">::</span> <a href="#local_content_650"><span class="LIDENT">content</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_sg_doc_649"><span class="LIDENT">sg_doc</span></a><span class="COMMA">,</span> <a href="#local_prelude_657"><span class="LIDENT">prelude</span></a> <span class="INFIXOP1">@</span> <a href="#local_content_658"><span class="LIDENT">content</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">docs</span> <span class="STAR">*</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="LIDENT">list</span><span class="RPAREN">)</span> <span class="LIDENT">option</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_t_668"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_simple_expansion_of_669"><span class="LIDENT">simple_expansion_of</span></span> <span class="LPAREN">(</span><span id="local_t_670"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">expr</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_670"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_t_659"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_simple_expansion_of_660"><span class="LIDENT">simple_expansion_of</span></span> <span class="LPAREN">(</span><span id="local_t_661"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">expr</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_661"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span class="LBRACE">{</span> <span class="LIDENT">p_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LBRACE">{</span> <span class="LIDENT">w_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">None</span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">None</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span class="LBRACE">{</span> <span class="LIDENT">p_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_671"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_671"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LBRACE">{</span> <span class="LIDENT">w_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_671"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Some</span> <a href="#local_e_671"><span class="LIDENT">e</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_674"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Signature</span> <a href="#local_sg_674"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_f_parameter_675"><span class="LIDENT">f_parameter</span></span><span class="COMMA">,</span> <span id="local_e_676"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_simple_expansion_of_669"><span class="LIDENT">simple_expansion_of</span></a> <a href="#local_e_676"><span class="LIDENT">e</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_677"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Functor</span> <span class="LPAREN">(</span><a href="#local_f_parameter_675"><span class="LIDENT">f_parameter</span></a><span class="COMMA">,</span> <a href="#local_e_677"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span class="LBRACE">{</span> <span class="LIDENT">p_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_662"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_662"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LBRACE">{</span> <span class="LIDENT">w_expansion</span> <span class="EQUAL">=</span> <span class="UIDENT">Some</span> <span id="local_e_662"><span class="LIDENT">e</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Some</span> <a href="#local_e_662"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_665"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Signature</span> <a href="#local_sg_665"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_f_parameter_666"><span class="LIDENT">f_parameter</span></span><span class="COMMA">,</span> <span id="local_e_667"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_simple_expansion_of_660"><span class="LIDENT">simple_expansion_of</span></a> <a href="#local_e_667"><span class="LIDENT">e</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_668"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span class="UIDENT">Functor</span> <span class="LPAREN">(</span><a href="#local_f_parameter_666"><span class="LIDENT">f_parameter</span></a><span class="COMMA">,</span> <a href="#local_e_668"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_simple_expansion_of_669"><span class="LIDENT">simple_expansion_of</span></a> <a href="#local_t_668"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_simple_expansion_of_660"><span class="LIDENT">simple_expansion_of</span></a> <a href="#local_t_659"><span class="LIDENT">t</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_678"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-simple_expansion"><span class="LIDENT">simple_expansion</span></a> <a href="#local_e_678"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_669"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-simple_expansion"><span class="LIDENT">simple_expansion</span></a> <a href="#local_e_669"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_"><span class="LIDENT">module_</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="LIDENT">t</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="FUN">fun</span> <span id="local_t_679"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_680"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_681"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_e_682"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-simple_expansion"><span class="LIDENT">simple_expansion</span></a> <a href="#local_e_682"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="FUN">fun</span> <span id="local_t_670"><span class="LIDENT">t</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_671"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_672"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_e_673"><span class="LIDENT">e</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-simple_expansion"><span class="LIDENT">simple_expansion</span></a> <a href="#local_e_673"><span class="LIDENT">e</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_e_683"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_e_683"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_e_674"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_e_674"><span class="LIDENT">e</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_684"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_685"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_status_686"><span class="LIDENT">status</span></span><span class="COMMA">,</span> <span id="local_expansion_687"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_688"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_expansion_681"><span class="LIDENT">expansion</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_modname_680"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_689"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_690"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_status_691"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_675"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_676"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_status_677"><span class="LIDENT">status</span></span><span class="COMMA">,</span> <span id="local_expansion_678"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_679"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_expansion_672"><span class="LIDENT">expansion</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_modname_671"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_680"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_681"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_status_682"><span class="LIDENT">status</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span class="LPAREN">(</span><span class="UIDENT">Signature</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="BACKQUOTE">`</span><span class="UIDENT">Inline</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="BACKQUOTE">`</span><span class="UIDENT">Default</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_692"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link_693"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_692"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_modname_680"><span class="LIDENT">modname</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_page_694"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_684"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_692"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_689"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <a href="#local_items_690"><span class="LIDENT">items</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_683"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link_684"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_683"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_modname_671"><span class="LIDENT">modname</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_page_685"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_675"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_683"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="SEMI">;</span> <a href="#local_expansion_doc_680"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_items_681"><span class="LIDENT">items</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_link_693"><span class="LIDENT">link</span></a><span class="COMMA">,</span> <a href="#local_status_691"><span class="LIDENT">status</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_page_694"><span class="LIDENT">page</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_689"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_link_684"><span class="LIDENT">link</span></a><span class="COMMA">,</span> <a href="#local_status_682"><span class="LIDENT">status</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_page_685"><span class="LIDENT">page</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_680"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| </span> <span class="COMMENT">(* TODO: link to source *)</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_intro_695"><span class="LIDENT">intro</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_modname_685"><span class="LIDENT">modname</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_696"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_695"><span class="LIDENT">intro</span></a> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mdexpr_in_decl"><span class="LIDENT">mdexpr_in_decl</span></a> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modexpr_697"><span class="LIDENT">modexpr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="TILDE">~</span><a href="#local_status_686"><span class="LIDENT">status</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_intro_686"><span class="LIDENT">intro</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <a href="#local_modname_676"><span class="LIDENT">modname</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_687"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <a href="#local_intro_686"><span class="LIDENT">intro</span></a> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mdexpr_in_decl"><span class="LIDENT">mdexpr_in_decl</span></a> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">type_</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modexpr_688"><span class="LIDENT">modexpr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="TILDE">~</span><a href="#local_status_677"><span class="LIDENT">status</span></a><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="COMMA">,</span> <span class="STRING">"sig"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_expansion_687"><span class="LIDENT">expansion</span></a> <a href="#local_summary_696"><span class="LIDENT">summary</span></a><span class="EOL"> | |
| +</span> <a href="#local_expansion_678"><span class="LIDENT">expansion</span></a> <a href="#local_summary_687"><span class="LIDENT">summary</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_698"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_intro_695"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_modexpr_697"><span class="LIDENT">modexpr</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_689"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <a href="#local_intro_686"><span class="LIDENT">intro</span></a> <span class="INFIXOP1">@</span> <a href="#local_modexpr_688"><span class="LIDENT">modexpr</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Mod</span><span class="DOT">.</span><span class="LIDENT">close_tag_semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_699"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_700"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_701"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_679"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_688"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_699"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_700"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_701"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_698"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_684"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_690"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_691"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_692"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_670"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_679"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_690"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_691"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_692"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_689"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_675"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-simple_expansion_in_decl"><span class="LIDENT">simple_expansion_in_decl</span></span> <span class="LPAREN">(</span><span id="local_base_702"><span class="LIDENT">base</span></span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span id="local_se_703"><span class="LIDENT">se</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_ty_of_se_704"><span class="LIDENT">ty_of_se</span></span> <span class="COLON">:</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-simple_expansion_in_decl"><span class="LIDENT">simple_expansion_in_decl</span></span> <span class="LPAREN">(</span><span id="local_base_693"><span class="LIDENT">base</span></span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span id="local_se_694"><span class="LIDENT">se</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span class="REC">rec</span> <span id="local_ty_of_se_695"><span class="LIDENT">ty_of_se</span></span> <span class="COLON">:</span><span class="EOL"> | |
| </span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">simple_expansion</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_705"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Signature</span> <a href="#local_sg_705"><span class="LIDENT">sg</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_arg_706"><span class="LIDENT">arg</span></span><span class="COMMA">,</span> <span id="local_sg_707"><span class="LIDENT">sg</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><a href="#local_arg_706"><span class="LIDENT">arg</span></a><span class="COMMA">,</span> <a href="#local_ty_of_se_704"><span class="LIDENT">ty_of_se</span></a> <a href="#local_sg_707"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span id="local_sg_696"><span class="LIDENT">sg</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Signature</span> <a href="#local_sg_696"><span class="LIDENT">sg</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><span id="local_arg_697"><span class="LIDENT">arg</span></span><span class="COMMA">,</span> <span id="local_sg_698"><span class="LIDENT">sg</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Functor</span> <span class="LPAREN">(</span><a href="#local_arg_697"><span class="LIDENT">arg</span></a><span class="COMMA">,</span> <a href="#local_ty_of_se_695"><span class="LIDENT">ty_of_se</span></a> <a href="#local_sg_698"><span class="LIDENT">sg</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_base_702"><span class="LIDENT">base</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><a href="#local_ty_of_se_704"><span class="LIDENT">ty_of_se</span></a> <a href="#local_se_703"><span class="LIDENT">se</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_base_693"><span class="LIDENT">base</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="LPAREN">(</span><a href="#local_ty_of_se_695"><span class="LIDENT">ty_of_se</span></a> <a href="#local_se_694"><span class="LIDENT">se</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mdexpr_in_decl"><span class="LIDENT">mdexpr_in_decl</span></span> <span class="LPAREN">(</span><span id="local_base_708"><span class="LIDENT">base</span></span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span id="local_md_709"><span class="LIDENT">md</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_sig_dotdotdot_710"><span class="LIDENT">sig_dotdotdot</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mdexpr_in_decl"><span class="LIDENT">mdexpr_in_decl</span></span> <span class="LPAREN">(</span><span id="local_base_699"><span class="LIDENT">base</span></span> <span class="COLON">:</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span id="local_md_700"><span class="LIDENT">md</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_sig_dotdotdot_701"><span class="LIDENT">sig_dotdotdot</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Type</span><span class="DOT">.</span><span class="LIDENT">annotation_separator</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Mod</span><span class="DOT">.</span><span class="LIDENT">open_tag</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ... "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Mod</span><span class="DOT">.</span><span class="LIDENT">close_tag</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_md_709"><span class="LIDENT">md</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_se_711"><span class="LIDENT">se</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-simple_expansion_in_decl"><span class="LIDENT">simple_expansion_in_decl</span></a> <a href="#local_base_708"><span class="LIDENT">base</span></a> <a href="#local_se_711"><span class="LIDENT">se</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_p_712"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="LIDENT">not</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_712"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mdexpr"><span class="LIDENT">mdexpr</span></a> <a href="#local_md_709"><span class="LIDENT">md</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <a href="#local_sig_dotdotdot_710"><span class="LIDENT">sig_dotdotdot</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_mt_713"><span class="LIDENT">mt</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_base_708"><span class="LIDENT">base</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_mt_713"><span class="LIDENT">mt</span></a><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_md_700"><span class="LIDENT">md</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span class="UIDENT">Some</span> <span id="local_se_702"><span class="LIDENT">se</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-simple_expansion_in_decl"><span class="LIDENT">simple_expansion_in_decl</span></a> <a href="#local_base_699"><span class="LIDENT">base</span></a> <a href="#local_se_702"><span class="LIDENT">se</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_p_703"><span class="LIDENT">p</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="WHEN">when</span> <span class="LIDENT">not</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_703"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mdexpr"><span class="LIDENT">mdexpr</span></a> <a href="#local_md_700"><span class="LIDENT">md</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <a href="#local_sig_dotdotdot_701"><span class="LIDENT">sig_dotdotdot</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_mt_704"><span class="LIDENT">mt</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-mty_in_decl"><span class="LIDENT">mty_in_decl</span></a> <span class="LPAREN">(</span><a href="#local_base_699"><span class="LIDENT">base</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="UIDENT">Signature</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <a href="#local_mt_704"><span class="LIDENT">mt</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mdexpr"><span class="LIDENT">mdexpr</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">Module</span><span class="DOT">.</span><span class="LIDENT">decl</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">text</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_mod_path_714"><span class="LIDENT">mod_path</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_mod_path_714"><span class="LIDENT">mod_path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_mt_715"><span class="LIDENT">mt</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-mty"><span class="LIDENT">mty</span></a> <a href="#local_mt_715"><span class="LIDENT">mt</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Alias</span> <span class="LPAREN">(</span><span id="local_mod_path_705"><span class="LIDENT">mod_path</span></span><span class="COMMA">,</span> <span class="UNDERSCORE">_</span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_mod_path_705"><span class="LIDENT">mod_path</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">ModuleType</span> <span id="local_mt_706"><span class="LIDENT">mt</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-mty"><span class="LIDENT">mty</span></a> <a href="#local_mt_706"><span class="LIDENT">mt</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></span> <span class="TILDE">~</span><span id="local_subst_716"><span class="LIDENT">subst</span></span> <span class="TILDE">~</span><span id="local_source_anchor_717"><span class="LIDENT">source_anchor</span></span> <span id="local_modname_718"><span class="LIDENT">modname</span></span> <span id="local_id_719"><span class="LIDENT">id</span></span> <span id="local_doc_720"><span class="LIDENT">doc</span></span> <span id="local_manifest_721"><span class="LIDENT">manifest</span></span><span class="EOL"> | |
| -</span> <span id="local_prefix_722"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_expansion_723"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_manifest_721"><span class="LIDENT">manifest</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></span> <span class="TILDE">~</span><span id="local_subst_707"><span class="LIDENT">subst</span></span> <span class="TILDE">~</span><span id="local_source_anchor_708"><span class="LIDENT">source_anchor</span></span> <span id="local_modname_709"><span class="LIDENT">modname</span></span> <span id="local_id_710"><span class="LIDENT">id</span></span> <span id="local_doc_711"><span class="LIDENT">doc</span></span> <span id="local_manifest_712"><span class="LIDENT">manifest</span></span><span class="EOL"> | |
| +</span> <span id="local_prefix_713"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_expansion_714"><span class="LIDENT">expansion</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_manifest_712"><span class="LIDENT">manifest</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">None</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_724"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_e_724"><span class="LIDENT">e</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_e_715"><span class="LIDENT">e</span></span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-expansion_of_module_type_expr"><span class="LIDENT">expansion_of_module_type_expr</span></a> <a href="#local_e_715"><span class="LIDENT">e</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_725"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_726"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_727"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_expansion_723"><span class="LIDENT">expansion</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_modname_718"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_728"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_729"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_url_730"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_id_719"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_link_731"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_730"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_modname_718"><span class="LIDENT">modname</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_page_732"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_717"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_730"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_doc_720"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_expansion_doc_728"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| -</span> <a href="#local_items_729"><span class="LIDENT">items</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_716"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_717"><span class="LIDENT">expansion</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_718"><span class="LIDENT">expansion_doc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_expansion_714"><span class="LIDENT">expansion</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <a href="#local_modname_709"><span class="LIDENT">modname</span></a><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="COMMA">,</span> <span class="UIDENT">None</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span class="LPAREN">(</span><span id="local_expansion_doc_719"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_items_720"><span class="LIDENT">items</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_url_721"><span class="LIDENT">url</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Url</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">from_identifier</span> <a href="#local_id_710"><span class="LIDENT">id</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_link_722"><span class="LIDENT">link</span></span> <span class="EQUAL">=</span> <a href="#val-path"><span class="LIDENT">path</span></a> <a href="#local_url_721"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <span class="LIDENT">inline</span> <span class="INFIXOP1">@@</span> <span class="UIDENT">Text</span> <a href="#local_modname_709"><span class="LIDENT">modname</span></a> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_page_723"><span class="LIDENT">page</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#val-make_expansion_page"><span class="LIDENT">make_expansion_page</span></a> <span class="TILDE">~</span><a href="#local_source_anchor_708"><span class="LIDENT">source_anchor</span></a> <a href="#local_url_721"><span class="LIDENT">url</span></a> <span class="LBRACKET">[</span> <a href="#local_doc_711"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_expansion_doc_719"><span class="LIDENT">expansion_doc</span></a> <span class="RBRACKET">]</span><span class="EOL"> | |
| +</span> <a href="#local_items_720"><span class="LIDENT">items</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span><a href="#local_link_731"><span class="LIDENT">link</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_page_732"><span class="LIDENT">page</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_728"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span><a href="#local_link_722"><span class="LIDENT">link</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_page_723"><span class="LIDENT">page</span></a><span class="COMMA">,</span> <span class="UIDENT">Some</span> <a href="#local_expansion_doc_719"><span class="LIDENT">expansion_doc</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_summary_733"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_manifest_721"><span class="LIDENT">manifest</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_summary_724"><span class="LIDENT">summary</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_manifest_712"><span class="LIDENT">manifest</span></a> <span class="WITH">with</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">None</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_expr_734"><span class="LIDENT">expr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <span class="LPAREN">(</span><a href="#local_prefix_722"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_725"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_subst_716"><span class="LIDENT">subst</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" :="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mty"><span class="LIDENT">mty</span></a> <a href="#local_expr_734"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Some</span> <span id="local_expr_725"><span class="LIDENT">expr</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">ignore</span> <span class="LPAREN">(</span><a href="#local_prefix_713"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_716"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <span class="LPAREN">(</span><span class="IF">if</span> <a href="#local_subst_707"><span class="LIDENT">subst</span></a> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" :="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" ="</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Module.val-mty"><span class="LIDENT">mty</span></a> <a href="#local_expr_725"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LPAREN">(</span> <a href="#local_modname_725"><span class="LIDENT">modname</span></a><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <a href="#local_expansion_doc_727"><span class="LIDENT">expansion_doc</span></a><span class="COMMA">,</span><span class="EOL"> | |
| -</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="LPAREN">(</span><span class="STRING">" = "</span><span class="COMMA">,</span> <span class="STRING">"sig"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span> <a href="#local_expansion_726"><span class="LIDENT">expansion</span></a> <a href="#local_summary_733"><span class="LIDENT">summary</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="LPAREN">(</span> <a href="#local_modname_716"><span class="LIDENT">modname</span></a><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <a href="#local_expansion_doc_718"><span class="LIDENT">expansion_doc</span></a><span class="COMMA">,</span><span class="EOL"> | |
| +</span> <a href="#val-attach_expansion"><span class="LIDENT">attach_expansion</span></a> <span class="LPAREN">(</span><span class="STRING">" = "</span><span class="COMMA">,</span> <span class="STRING">"sig"</span><span class="COMMA">,</span> <span class="STRING">"end"</span><span class="RPAREN">)</span> <a href="#local_expansion_717"><span class="LIDENT">expansion</span></a> <a href="#local_summary_724"><span class="LIDENT">summary</span></a> <span class="RPAREN">)</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type"><span class="LIDENT">module_type</span></span> <span class="LPAREN">(</span><span id="local_t_735"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_prefix_736"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-module_type"><span class="LIDENT">module_type</span></span> <span class="LPAREN">(</span><span id="local_t_726"><span class="LIDENT">t</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_prefix_727"><span class="LIDENT">prefix</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_737"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_source_anchor_738"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_modname_739"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_740"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_mty_741"><span class="LIDENT">mty</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></a> <span class="LABEL">~subst:</span><span class="FALSE">false</span> <span class="TILDE">~</span><a href="#local_source_anchor_738"><span class="LIDENT">source_anchor</span></a> <a href="#local_modname_737"><span class="LIDENT">modname</span></a> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="EOL"> | |
| -</span> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <a href="#local_prefix_736"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_728"><span class="LIDENT">modname</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Identifier</span><span class="DOT">.</span><span class="LIDENT">name</span> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_source_anchor_729"><span class="LIDENT">source_anchor</span></span> <span class="EQUAL">=</span> <a href="#val-source_anchor"><span class="LIDENT">source_anchor</span></a> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">locs</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_modname_730"><span class="LIDENT">modname</span></span><span class="COMMA">,</span> <span id="local_expansion_doc_731"><span class="LIDENT">expansion_doc</span></span><span class="COMMA">,</span> <span id="local_mty_732"><span class="LIDENT">mty</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Module.val-module_type_manifest"><span class="LIDENT">module_type_manifest</span></a> <span class="LABEL">~subst:</span><span class="FALSE">false</span> <span class="TILDE">~</span><a href="#local_source_anchor_729"><span class="LIDENT">source_anchor</span></a> <a href="#local_modname_728"><span class="LIDENT">modname</span></a> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span><span class="EOL"> | |
| +</span> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">expr</span> <a href="#local_prefix_727"><span class="LIDENT">prefix</span></a><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_content_742"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_prefix_736"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_739"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="INFIXOP1">@</span> <a href="#local_mty_741"><span class="LIDENT">mty</span></a><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_content_733"><span class="LIDENT">content</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span> <span class="LPAREN">(</span><a href="#local_prefix_727"><span class="LIDENT">prefix</span></a> <span class="INFIXOP2">++</span> <a href="#local_modname_730"><span class="LIDENT">modname</span></a><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP1">@</span> <a href="#local_mty_732"><span class="LIDENT">mty</span></a><span class="EOL"> | |
| </span> <span class="INFIXOP1">@</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">documentedSrc</span><span class="EOL"> | |
| </span> <span class="LPAREN">(</span><span class="IF">if</span> <span class="UIDENT">Syntax</span><span class="DOT">.</span><span class="UIDENT">Mod</span><span class="DOT">.</span><span class="LIDENT">close_tag_semicolon</span> <span class="THEN">then</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">";"</span> <span class="ELSE">else</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">noop</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_attr_743"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_anchor_744"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="LET">let</span> <span id="local_doc_745"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_735"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_740"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| -</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_743"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_744"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_745"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_742"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_738"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_attr_734"><span class="LIDENT">attr</span></span> <span class="EQUAL">=</span> <span class="LBRACKET">[</span> <span class="STRING">"module-type"</span> <span class="RBRACKET">]</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_anchor_735"><span class="LIDENT">anchor</span></span> <span class="EQUAL">=</span> <a href="#val-path_to_id"><span class="LIDENT">path_to_id</span></a> <a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">id</span> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="LET">let</span> <span id="local_doc_736"><span class="LIDENT">doc</span></span> <span class="EQUAL">=</span> <span class="UIDENT">Comment</span><span class="DOT">.</span><span class="LIDENT">synopsis</span> <span class="LABEL">~decl_doc:</span><a href="#local_t_726"><span class="LIDENT">t</span></a><span class="DOT">.</span><span class="LIDENT">doc</span> <span class="TILDE">~</span><a href="#local_expansion_doc_731"><span class="LIDENT">expansion_doc</span></a> <span class="IN">in</span><span class="EOL"> | |
| +</span> <span class="UIDENT">Item</span><span class="DOT">.</span><span class="UIDENT">Declaration</span> <span class="LBRACE">{</span> <a href="#local_attr_734"><span class="LIDENT">attr</span></a><span class="SEMI">;</span> <a href="#local_anchor_735"><span class="LIDENT">anchor</span></a><span class="SEMI">;</span> <a href="#local_doc_736"><span class="LIDENT">doc</span></a><span class="SEMI">;</span> <a href="#local_content_733"><span class="LIDENT">content</span></a><span class="SEMI">;</span> <a href="#local_source_anchor_729"><span class="LIDENT">source_anchor</span></a> <span class="RBRACE">}</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-umty_hidden"><span class="LIDENT">umty_hidden</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="UIDENT">U</span><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">bool</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span id="local_p_746"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_746"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_expr_747"><span class="LIDENT">expr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-umty_hidden"><span class="LIDENT">umty_hidden</span></a> <a href="#local_expr_747"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">ModPath</span> <span id="local_m_748"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">StructInclude</span> <span id="local_m_748"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_m_748"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span id="local_p_737"><span class="LIDENT">p</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_p_737"><span class="LIDENT">p</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LPAREN">(</span><span class="UNDERSCORE">_</span><span class="COMMA">,</span> <span id="local_expr_738"><span class="LIDENT">expr</span></span><span class="RPAREN">)</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-umty_hidden"><span class="LIDENT">umty_hidden</span></a> <a href="#local_expr_738"><span class="LIDENT">expr</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">ModPath</span> <span id="local_m_739"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">StructInclude</span> <span id="local_m_739"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_m_739"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UIDENT">Signature</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mty_hidden"><span class="LIDENT">mty_hidden</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">bool</span> <span class="EQUAL">=</span> <span class="FUNCTION">function</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span class="LBRACE">{</span> <span class="LIDENT">p_path</span> <span class="EQUAL">=</span> <span id="local_mty_path_750"><span class="LIDENT">mty_path</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_mty_path_750"><span class="LIDENT">mty_path</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LBRACE">{</span> <span id="local_w_expr_751"><span class="LIDENT">w_expr</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-umty_hidden"><span class="LIDENT">umty_hidden</span></a> <a href="#local_w_expr_751"><span class="LIDENT">w_expr</span></a><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">ModPath</span> <span id="local_m_752"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">StructInclude</span> <span id="local_m_752"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| -</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_m_752"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Path</span> <span class="LBRACE">{</span> <span class="LIDENT">p_path</span> <span class="EQUAL">=</span> <span id="local_mty_path_741"><span class="LIDENT">mty_path</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_mty_path_741"><span class="LIDENT">mty_path</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">With</span> <span class="LBRACE">{</span> <span id="local_w_expr_742"><span class="LIDENT">w_expr</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span> <a href="#module-Make.module-Module.val-umty_hidden"><span class="LIDENT">umty_hidden</span></a> <a href="#local_w_expr_742"><span class="LIDENT">w_expr</span></a><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">ModPath</span> <span id="local_m_743"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">TypeOf</span> <span class="LBRACE">{</span> <span class="LIDENT">t_desc</span> <span class="EQUAL">=</span> <span class="UIDENT">StructInclude</span> <span id="local_m_743"><span class="LIDENT">m</span></span><span class="SEMI">;</span> <span class="UNDERSCORE">_</span> <span class="RBRACE">}</span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LPAREN">(</span><span class="LIDENT">is_hidden</span> <span class="LPAREN">(</span><a href="#local_m_743"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="LIDENT">t</span><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="BAR">|</span> <span class="UNDERSCORE">_</span> <span class="MINUSGREATER">-></span> <span class="FALSE">false</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mty_with"><span class="LIDENT">mty_with</span></span> <span id="local_subs_754"><span class="LIDENT">subs</span></span> <span id="local_expr_755"><span class="LIDENT">expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <a href="#module-Make.module-Module.val-umty"><span class="LIDENT">umty</span></a> <a href="#local_expr_755"><span class="LIDENT">expr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"with"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mty_with"><span class="LIDENT">mty_with</span></span> <span id="local_subs_745"><span class="LIDENT">subs</span></span> <span id="local_expr_746"><span class="LIDENT">expr</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <a href="#module-Make.module-Module.val-umty"><span class="LIDENT">umty</span></a> <a href="#local_expr_746"><span class="LIDENT">expr</span></a> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">sp</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"with"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">list</span><span class="EOL"> | |
| </span> <span class="LABEL">~sep:</span><span class="LPAREN">(</span><span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">cut</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"and"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_756"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-substitution"><span class="LIDENT">substitution</span></a> <a href="#local_x_756"><span class="LIDENT">x</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <a href="#local_subs_754"><span class="LIDENT">subs</span></a><span class="EOL"> | |
| +</span> <span class="LABEL">~f:</span><span class="LPAREN">(</span><span class="FUN">fun</span> <span id="local_x_747"><span class="LIDENT">x</span></span> <span class="MINUSGREATER">-></span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">span</span> <span class="LPAREN">(</span><a href="#module-Make.module-Module.val-substitution"><span class="LIDENT">substitution</span></a> <a href="#local_x_747"><span class="LIDENT">x</span></a><span class="RPAREN">)</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <a href="#local_subs_745"><span class="LIDENT">subs</span></a><span class="EOL"> | |
| </span><span class="EOL"> | |
| -</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mty_typeof"><span class="LIDENT">mty_typeof</span></span> <span id="local_t_desc_757"><span class="LIDENT">t_desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| -</span> <span class="MATCH">match</span> <a href="#local_t_desc_757"><span class="LIDENT">t_desc</span></a> <span class="WITH">with</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="UIDENT">ModPath</span> <span id="local_m_758"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="AND">and</span> <span id="module-Make.module-Module.val-mty_typeof"><span class="LIDENT">mty_typeof</span></span> <span id="local_t_desc_748"><span class="LIDENT">t_desc</span></span> <span class="EQUAL">=</span><span class="EOL"> | |
| +</span> <span class="MATCH">match</span> <a href="#local_t_desc_748"><span class="LIDENT">t_desc</span></a> <span class="WITH">with</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="UIDENT">ModPath</span> <span id="local_m_749"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_m_758"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| -</span> <span class="BAR">|</span> <span class="UIDENT">StructInclude</span> <span id="local_m_759"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_m_749"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="BAR">|</span> <span class="UIDENT">StructInclude</span> <span id="local_m_750"><span class="LIDENT">m</span></span> <span class="MINUSGREATER">-></span><span class="EOL"> | |
| </span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"module"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"type"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"of"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"struct"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"include"</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span><span class="EOL"> | |
| -</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_m_759"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| +</span> <span class="INFIXOP2">++</span> <a href="#module-Make.module-Link.val-from_path"><span class="UIDENT">Link</span><span class="DOT">.</span><span class="LIDENT">from_path</span></a> <span class="LPAREN">(</span><a href="#local_m_750"><span class="LIDENT">m</span></a> <span class="COLONGREATER">:></span> <span class="UIDENT">Paths</span><span class="DOT">.</span><span class="UIDENT">Path</span><span class="DOT">.</span><span class="LIDENT">t</span><span class="RPAREN">)</span><span class="EOL"> | |
| </span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">txt</span> <span class="STRING">" "</span> <span class="INFIXOP2">++</span> <span class="UIDENT">O</span><span class="DOT">.</span><span class="LIDENT">keyword</span> <span class="STRING">"end"</span><span class="EOL"> | |
| </span><span class="EOL"> | |
| </span> <span class="AND">and</span> <span id="module-Make.module-Module.val-is_elidable_with_u"><span class="LIDENT">is_elidable_with_u</span></span> <span class="COLON">:</span> <span class="UIDENT">Odoc_model</span><span class="DOT">.</span><span class="UIDENT">Lang</span><span class="DOT">.</span><span class="UIDENT">ModuleType</span><span class="DOT">.</span><span class="UIDENT">U</span><span class="DOT">.</span><span class="LIDENT">expr</span> <span class="MINUSGREATER">-></span> <span class="LIDENT">bool</span> <span class="EQUAL">=</span><span class="EOL"> | |
| </span> <span class="FUNCTION">function</ |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment