diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-01-26 23:58:42 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-01-26 23:58:42 -0800 |
| commit | 8d09c4aff4dd2257c9732ca78b6911eb3348481f (patch) | |
| tree | 432ff8eec5a51282b7584eecba45cdd87eed6f62 /src | |
| parent | ebed209627ceb6670a43cb66aba21d1b653092a8 (diff) | |
EPUB reader: don't put `#` characters in identifiers.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |