From 4ba72aaa2e5beb6b8b5bb300cc648313348b5af0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 27 Jul 2022 08:40:31 -0700
Subject: [PATCH] =?UTF-8?q?Fix=20bug=20in=20filter=20example.=20Thanks=20t?=
 =?UTF-8?q?o=20Ji=C5=99=C3=AD=20Wolker.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 doc/filters.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/filters.md b/doc/filters.md
index ce256a9f0..3be905c98 100644
--- a/doc/filters.md
+++ b/doc/filters.md
@@ -285,7 +285,7 @@ import qualified Data.Text as T
 
 doInclude :: Block -> IO Block
 doInclude cb@(CodeBlock (id, classes, namevals) contents) =
-  case lookup "include" namevals of
+  case lookup (T.pack "include") namevals of
        Just f     -> CodeBlock (id, classes, namevals) <$>
                       TIO.readFile (T.unpack f)
        Nothing    -> return cb