diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/TEI.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/TEI.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/TEI.hs b/src/Text/Pandoc/Writers/TEI.hs index b926c48a1..7d9f9d1f9 100644 --- a/src/Text/Pandoc/Writers/TEI.hs +++ b/src/Text/Pandoc/Writers/TEI.hs @@ -149,9 +149,9 @@ blockToTEI opts (BlockQuote blocks) = blockToTEI _ (CodeBlock (_,classes,_) str) = return $ literal ("<ab type='codeblock " <> lang <> "'>") <> cr <> flush (literal (escapeStringForXML str) <> cr <> text "</ab>") - where lang = if null langs - then "" - else escapeStringForXML (head langs) + where lang = case langs of + [] -> "" + (l:_) -> escapeStringForXML l isLang l = T.toLower l `elem` map T.toLower languages langsFrom s = if isLang s then [s] |