Preliminary support for cross-domain references

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@42 eb64cd80-c68d-6f47-b6a3-0ada418499da
2022-12-15 21:25:18 +00:00
parent 3e971f40dc
commit 4dff69cb4a
7 changed files with 88 additions and 49 deletions
--- a/cli/html.ml
+++ b/cli/html.ml
@@ -88,7 +88,7 @@ let page htm conversion text =
 				with Not_found -> "")
 		^ 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>")