From 8d09c4aff4dd2257c9732ca78b6911eb3348481f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 26 Jan 2024 23:58:42 -0800 Subject: EPUB reader: don't put `#` characters in identifiers. --- src/Text/Pandoc/Readers/EPUB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs index 2a7c54750..c8090f7cb 100644 --- a/src/Text/Pandoc/Readers/EPUB.hs +++ b/src/Text/Pandoc/Readers/EPUB.hs @@ -239,7 +239,7 @@ fixAttrs s (ident, cs, kvs) = addHash :: FilePath -> Text -> Text addHash _ "" = "" -addHash s ident = T.pack (takeFileName s) <> "#" <> ident +addHash s ident = T.pack (takeFileName s) <> "_" <> ident removeEPUBAttrs :: [(Text, Text)] -> [(Text, Text)] removeEPUBAttrs kvs = filter (not . isEPUBAttr) kvs -- cgit v1.2.3