diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-10-18 22:03:45 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-10-18 22:03:45 +0200 |
| commit | 4a2a7a21e5e8bf0d11abd214d372729eb9eb8d0c (patch) | |
| tree | 2c572ae48210a5935b1746d85a6674b91e1a8306 /src | |
| parent | 0cd11b3e5404fa6fca7538098bcf315343d1a237 (diff) | |
| parent | c74c5fdd97e8bf4c160a42dff72e3a521294bcda (diff) | |
Merge pull request #3166 from hubertp-lshift/bug/3134
Issue 3143: Don't duplicate text for anchors
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/ContentReader.hs | 5 |
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 |