From fc1a998292338d0144961591ebcd9373c2b80faf Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Tue, 8 Mar 2016 21:56:32 -0500
Subject: html5 conformance fixes

---
 doc/txt.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'doc/txt.ml')

diff --git a/doc/txt.ml b/doc/txt.ml
index 12e33e8..7414b11 100644
--- a/doc/txt.ml
+++ b/doc/txt.ml
@@ -271,11 +271,11 @@ let rec dochtml titles d =
     | Title (0, n, t) ->
       printf "<h3><a id='%d'>" n;
       escape t;
-      printf "</h3>\n";
+      printf "</a></h3>\n";
     | Title (_, n, t) ->
-      printf "<h3><a id='%d'>" n;
+      printf "<h4><a id='%d'>" n;
       escape t;
-      printf "</h4>\n";
+      printf "</a></h4>\n";
     | Olist l ->
       printf "<ol>\n";
       plist l;
-- 
cgit 1.4.1