Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

[Docx Reader] Remove no-op stack/unstackInlines in Readers.Docx.Combine

Browse source
This commit is contained in:
Nikolay Yakimov 2020-07-07 12:28:38 +03:00
parent 27465638a1
commit 1ae4d76d42
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Readers/Docx/Combine.hs
View file

@ -71,20 +71,18 @@ data Modifier a = Modifier (a -> a)
spaceOutInlinesL :: Inlines -> (Inlines, Inlines)
spaceOutInlinesL ms = (l, stackInlines fs (m' <> r))
where (l, m, r) = spaceOutInlines ms
(fs, m') = unstackInlines m
where (l, (fs, m'), r) = spaceOutInlines ms
spaceOutInlinesR :: Inlines -> (Inlines, Inlines)
spaceOutInlinesR ms = (stackInlines fs (l <> m'), r)
where (l, m, r) = spaceOutInlines ms
(fs, m') = unstackInlines m
where (l, (fs, m'), r) = spaceOutInlines ms
spaceOutInlines :: Inlines -> (Inlines, Inlines, Inlines)
spaceOutInlines :: Inlines -> (Inlines, ([Modifier Inlines], Inlines), Inlines)
spaceOutInlines ils =
let (fs, ils') = unstackInlines ils
(left, (right, contents')) = second (spanr isSpace) $ spanl isSpace $ unMany ils'
-- NOTE: spanr counterintuitively returns suffix as the FIRST tuple element
in (Many left, stackInlines fs $ Many contents', Many right)
in (Many left, (fs, Many contents'), Many right)
isSpace :: Inline -> Bool
isSpace Space = True