1 files changed, 2 insertions(+), 3 deletions(-)

M src/Html/Compile.hs

@@ 18,11 18,10 @@ htmlCompile doc =
 toc :: [AST] -> Html.Structure
 toc as =
   concat
-    [ let headerText = (convertTexts h)
+    [ let headertext = convertTexts h
        in (Html.p_indent_
              (n - 1)
-             (convertTexts
-                [Plain "- ", Link [Italic [Plain headerText]] ("#" ++ headerText)]))
+             (convertTexts [Plain "- ", Link [Italic h] ("#" ++ headertext)]))
     | (Header n h) <- as
     ]