aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-10-18 22:03:45 +0200
committerGitHub <noreply@github.com>2016-10-18 22:03:45 +0200
commit4a2a7a21e5e8bf0d11abd214d372729eb9eb8d0c (patch)
tree2c572ae48210a5935b1746d85a6674b91e1a8306 /src/Text/Pandoc
parent0cd11b3e5404fa6fca7538098bcf315343d1a237 (diff)
parentc74c5fdd97e8bf4c160a42dff72e3a521294bcda (diff)
downloadpandoc-4a2a7a21e5e8bf0d11abd214d372729eb9eb8d0c.tar.gz
Merge pull request #3166 from hubertp-lshift/bug/3134
Issue 3143: Don't duplicate text for anchors
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Odt/ContentReader.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/ContentReader.hs b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
index 11d39498c..0b152268f 100644
--- a/src/Text/Pandoc/Readers/Odt/ContentReader.hs
+++ b/src/Text/Pandoc/Readers/Odt/ContentReader.hs
@@ -810,9 +810,8 @@ maybeAddAnchorFrom anchorReader =
>>>
proc (inlines, fAnchorElem) -> do
case fAnchorElem of
- Right anchorElem ->
- arr (anchorElem <>) -<< inlines
- Left _ -> returnA -< inlines
+ Right anchorElem -> returnA -< anchorElem
+ Left _ -> returnA -< inlines
where
toAnchorElem :: Anchor -> Inlines
toAnchorElem anchorID = spanWith (anchorID, [], []) mempty