diff options
| author | mb21 <mb21@users.noreply.github.com> | 2016-05-24 17:42:37 +0200 |
|---|---|---|
| committer | mb21 <mb21@users.noreply.github.com> | 2016-05-24 17:42:37 +0200 |
| commit | 340f0aaef87acddd37df0a79267b46043223e4f0 (patch) | |
| tree | 4006b9fe8306cc046fb79766e1e8926c5cc7373f | |
| parent | bfb18df27ea0eff0709494a2d7ff463f42374e01 (diff) | |
| download | pandoc-340f0aaef87acddd37df0a79267b46043223e4f0.tar.gz | |
EPUB Reader: normalise Link id as well
| -rw-r--r-- | src/Text/Pandoc/Readers/EPUB.hs | 6 |
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 |