pandoc uses the "lang" property

This commit is contained in:
Rhiannon Morris 2021-04-29 19:37:01 +02:00
parent 333f23f55c
commit c8b811a733
10 changed files with 10 additions and 10 deletions

View file

@ -12,7 +12,7 @@ import qualified Data.Map as Map
main :: IO ()
main = toJSONFilter filter where
filter p@(Pandoc (Meta m) _) = do
lang' <- toLang $ Map.lookup "lang" m
lang' <- toLang $ Map.lookup "conlang" m
let ?lang = lang'
fmap (walk makeEbnf .
walk (concatMap makeFigures) .