Changeset 42 in code for trunk/cli/html.ml

Timestamp:

Dec 15, 2022, 9:25:18 PM (2 years ago)

Author:

fox

Message:

Preliminary support for cross-domain references

File:

• trunk/cli/html.ml (modified) (1 diff)

trunk/cli/html.ml

@@ -89 +89 @@
                 ^ opt_kv "Replies:" (try
                                 ref_links (Conversion.Id_map.find text.id conversion.Conversion.replies)
-                                with Not_found -> "empty replies")
+                                with Not_found -> "")
                 ^ {|</dl></header><pre style="white-space:pre-wrap">|} in
         wrap conversion htm text.title ((T.of_string text.body header) ^ "</pre></article>")