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 :: Block -> IO Block
|
||||||
doInclude cb@(CodeBlock (id, classes, namevals) contents) =
|
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) <$>
|
Just f -> CodeBlock (id, classes, namevals) <$>
|
||||||
TIO.readFile (T.unpack f)
|
TIO.readFile (T.unpack f)
|
||||||
Nothing -> return cb
|
Nothing -> return cb
|
||||||
|
|
Loading…
Reference in a new issue