From 5fc59811a00c1951d1e4badabab9ba6f10146253 Mon Sep 17 00:00:00 2001
From: Everett Hildenbrandt <hildenb2@illinois.edu>
Date: Tue, 17 Apr 2018 23:08:35 -0600
Subject: [PATCH] hakyll-std/TableOfContents: write5HtmlString =>
 writeHtml5String

---
 site/hakyll-std/TableOfContents.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/site/hakyll-std/TableOfContents.hs b/site/hakyll-std/TableOfContents.hs
index c4caeb623..192daad52 100644
--- a/site/hakyll-std/TableOfContents.hs
+++ b/site/hakyll-std/TableOfContents.hs
@@ -54,7 +54,7 @@ markupHeader :: Tree Block -> H.Html
 markupHeader (Node (Header _ (ident, _, keyvals) inline) headers)
   | headers == [] = H.li $ link
   | otherwise     = H.li $ link <> (H.ol $ markupHeaders headers)
-  where render x  = write5HtmlString def (Pandoc nullMeta [(Plain x)])
+  where render x  = writeHtml5String def (Pandoc nullMeta [(Plain x)])
         section   = fromMaybe (render inline) (lookup "toc" keyvals)
         link      = H.a ! A.href (H.toValue $ "#" ++ ident) $ preEscapedToHtml $ unpack section
 markupHeader _ = error "what"