summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormb21 <mb21@users.noreply.github.com>2016-05-24 17:42:37 +0200
committermb21 <mb21@users.noreply.github.com>2016-05-24 17:42:37 +0200
commit340f0aaef87acddd37df0a79267b46043223e4f0 (patch)
tree4006b9fe8306cc046fb79766e1e8926c5cc7373f
parentbfb18df27ea0eff0709494a2d7ff463f42374e01 (diff)
EPUB Reader: normalise Link id as well
-rw-r--r--src/Text/Pandoc/Readers/EPUB.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs
index 149a7c00b..b8a0b47e7 100644
--- a/src/Text/Pandoc/Readers/EPUB.hs
+++ b/src/Text/Pandoc/Readers/EPUB.hs
@@ -194,8 +194,10 @@ fixInlineIRs s (Span as v) =
Span (fixAttrs s as) v
fixInlineIRs s (Code as code) =
Code (fixAttrs s as) code
-fixInlineIRs s (Link attr t ('#':url, tit)) =
- Link attr t (addHash s url, tit)
+fixInlineIRs s (Link as is ('#':url, tit)) =
+ Link (fixAttrs s as) is (addHash s url, tit)
+fixInlineIRs s (Link as is t) =
+ Link (fixAttrs s as) is t
fixInlineIRs _ v = v
prependHash :: [String] -> Inline -> Inline