diff options
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 |