git.iko.soy/typeable/pandoc
on master help sign in
Merge pull request #3166 from hubertp-lshift/bug/3134
4a2a7a2John MacFarlane
src/Text/Pandoc/Readers/Odt/ContentReader.hs+2−3
compare with master
unifiedsplit
@@ -810,9 +810,8 @@ maybeAddAnchorFrom anchorReader =
810 >>>
810 >>>
811 proc (inlines, fAnchorElem) -> do
811 proc (inlines, fAnchorElem) -> do
812 case fAnchorElem of
812 case fAnchorElem of
813− Right anchorElem ->
813+ Right anchorElem -> returnA -< anchorElem
814− arr (anchorElem <>) -<< inlines
815− Left _ -> returnA -< inlines
814+ Left _ -> returnA -< inlines
816 where
815 where
817 toAnchorElem :: Anchor -> Inlines
816 toAnchorElem :: Anchor -> Inlines
818 toAnchorElem anchorID = spanWith (anchorID, [], []) mempty
817 toAnchorElem anchorID = spanWith (anchorID, [], []) mempty
tests/odt/native/referenceToText.native+1−1
@@ -1 +1 @@
1−[Para [Span ("an anchor",[],[]) [],Str "Some",Space,Str "text."],Para [Str "A",Space,Str "reference",Space,Str "to",Space,Link ("",[],[]) [Str "Some",Space,Str "text"] ("#an anchor",""),Str "."]]
1+[Para [Span ("an anchor",[],[]) [],Str "Some",Space,Str "text."],Para [Str "A",Space,Str "reference",Space,Str "to",Space,Link ("",[],[]) [Str "Some",Space,Str "text"] ("#an anchor",""),Str "."],Para [Str "Some",Space,Str "text",LineBreak,Str "Another",Space,Str "one",Space,Str "with",Space,Str "a",Space,Str "link",Span ("anchor",[],[]) []]]
tests/odt/odt/referenceToText.odt

Binary file not shown.