Skip to content

Commit a78cc2b

Browse files
lubegasimonlubegasimon
committed
draft
1 parent e0068cb commit a78cc2b

File tree

4 files changed

+118
-0
lines changed

4 files changed

+118
-0
lines changed

‎test/cases/stop_dead_link_doc.mli‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
(**/**)
2+
module For_generated_code : sig
3+
(*_ don't use this by hand, it is only meant for ppx_fields_conv *)
4+
5+
type ('perm, 'record, 'field) t =
6+
{ force_variance : 'perm -> unit
7+
; name : string
8+
; setter : ('record -> 'field -> unit) option
9+
; getter : 'record -> 'field
10+
; fset : 'record -> 'field -> 'record
11+
}
12+
13+
val opaque_identity : 'a -> 'a
14+
end
15+
(**/**)
16+
17+
(**['record] is the type of the record. ['field] is the type of the
18+
values stored in the record field with name [name]. ['perm] is a way
19+
of restricting the operations that can be used. *)
20+
type ('perm, 'record, 'field) t_with_perm =
21+
| Field of ('perm, 'record, 'field) For_generated_code.t
22+
[@@unboxed]

‎test/html/expect/test_package+ml/Stop_dead_link_doc/index.html‎

Lines changed: 47 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,47 @@
1+
<!DOCTYPE html>
2+
<html xmlns="http://www.w3.org/1999/xhtml">
3+
<head>
4+
<title>
5+
Stop_dead_link_doc (test_package+ml.Stop_dead_link_doc)
6+
</title>
7+
<link rel="stylesheet" href="../../odoc.css">
8+
<meta charset="utf-8">
9+
<meta name="generator" content="odoc %%VERSION%%">
10+
<meta name="viewport" content="width=device-width,initial-scale=1.0">
11+
<script src="../../highlight.pack.js"></script>
12+
<script>
13+
hljs.initHighlightingOnLoad();
14+
</script>
15+
</head>
16+
<body>
17+
<nav>
18+
<a href="../index.html">Up</a> – <a href="../index.html">test_package+ml</a> » Stop_dead_link_doc
19+
</nav>
20+
<header>
21+
<h1>
22+
Module <code>Stop_dead_link_doc</code>
23+
</h1>
24+
</header>
25+
<div class="content">
26+
<div>
27+
<div class="spec type" id="type-t_with_perm">
28+
<a href="#type-t_with_perm" class="anchor"></a><code><span class="keyword">type</span> <span>('perm, 'record, 'field) t_with_perm</span> = </code>
29+
<table>
30+
<tbody>
31+
<tr id="type-t_with_perm.Field" class="anchored">
32+
<td class="def variant constructor">
33+
<a href="#type-t_with_perm.Field" class="anchor"></a><code>| <span class="constructor">Field</span> <span class="keyword">of</span> <span><span>(<span class="type-var">'perm</span>,&nbsp;<span class="type-var">'record</span>,&nbsp;<span class="type-var">'field</span>)</span> <a href="For_generated_code/index.html#type-t">For_generated_code.t</a></span></code>
34+
</td>
35+
</tr>
36+
</tbody>
37+
</table>
38+
</div>
39+
<div>
40+
<p>
41+
<code>'record</code> is the type of the record. <code>'field</code> is the type of the values stored in the record field with name <code>name</code>. <code>'perm</code> is a way of restricting the operations that can be used.
42+
</p>
43+
</div>
44+
</div>
45+
</div>
46+
</body>
47+
</html>

‎test/html/expect/test_package+re/Stop_dead_link_doc/index.html‎

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
<!DOCTYPE html>
2+
<html xmlns="http://www.w3.org/1999/xhtml">
3+
<head>
4+
<title>
5+
Stop_dead_link_doc (test_package+re.Stop_dead_link_doc)
6+
</title>
7+
<link rel="stylesheet" href="../../odoc.css">
8+
<meta charset="utf-8">
9+
<meta name="generator" content="odoc %%VERSION%%">
10+
<meta name="viewport" content="width=device-width,initial-scale=1.0">
11+
<script src="../../highlight.pack.js"></script>
12+
<script>
13+
hljs.initHighlightingOnLoad();
14+
</script>
15+
</head>
16+
<body>
17+
<nav>
18+
<a href="../index.html">Up</a> – <a href="../index.html">test_package+re</a> » Stop_dead_link_doc
19+
</nav>
20+
<header>
21+
<h1>
22+
Module <code>Stop_dead_link_doc</code>
23+
</h1>
24+
</header>
25+
<div class="content">
26+
<div>
27+
<div class="spec type" id="type-t_with_perm">
28+
<a href="#type-t_with_perm" class="anchor"></a><code><span class="keyword">type</span> t_with_perm('perm, 'record, 'field) = </code>
29+
<table>
30+
<tbody>
31+
<tr id="type-t_with_perm.Field" class="anchored">
32+
<td class="def variant constructor">
33+
<a href="#type-t_with_perm.Field" class="anchor"></a><code>| <span class="constructor">Field</span>(<a href="For_generated_code/index.html#type-t">For_generated_code.t</a><span>(<span class="type-var">'perm</span>,&nbsp;<span class="type-var">'record</span>,&nbsp;<span class="type-var">'field</span>)</span>)</code>
34+
</td>
35+
</tr>
36+
</tbody>
37+
</table>
38+
<code>;</code>
39+
</div>
40+
<div>
41+
<p>
42+
<code>'record</code> is the type of the record. <code>'field</code> is the type of the values stored in the record field with name <code>name</code>. <code>'perm</code> is a way of restricting the operations that can be used.
43+
</p>
44+
</div>
45+
</div>
46+
</div>
47+
</body>
48+
</html>

‎test/html/test.ml‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -273,6 +273,7 @@ let source_files_all =
273273
("functor.mli", [ "Functor/index.html" ]);
274274
("class.mli", [ "Class/index.html" ]);
275275
("stop.mli", [ "Stop/index.html" ]);
276+
("stop_dead_link_doc.mli", [ "Stop_dead_link_doc/index.html" ]);
276277
("bugs.ml", [ "Bugs/index.html" ]);
277278
("alias.ml", [ "Alias/index.html"; "Alias/X/index.html" ]);
278279
]

0 commit comments

Comments
 (0)