Fix bug in filter example. Thanks to Jiří Wolker.

This commit is contained in:
John MacFarlane 2022-07-27 08:40:31 -07:00
parent 1f83f19c92
commit 4ba72aaa2e

View file

@ -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