Fix bug in filter example. Thanks to Jiří Wolker.
This commit is contained in:
parent
1f83f19c92
commit
4ba72aaa2e
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue