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

Powerpoint writer: code cleanup

Browse source 
Last commit accidentally left commented-out code in.
This commit is contained in:
Jesse Rosenthal 2018-01-13 09:34:03 -05:00
parent a842d3ae7d
commit e08776b9d5
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/Powerpoint.hs
View file

@ -868,13 +868,6 @@ combineShapes (pic@(Pic _ _ _ _) : ss) = pic : combineShapes ss
combineShapes ((TextBox []) : ss) = combineShapes ss
combineShapes (s : TextBox [] : ss) = combineShapes (s : ss)
combineShapes ((TextBox (p:ps)) : (TextBox (p':ps')) : ss) =
-- | pPropHeaderType (paraProps p) == Just TitleHeader ||
-- pPropHeaderType (paraProps p) == Just SlideHeader =
-- TextBox [p] : (combineShapes $ TextBox ps : s' : ss)
-- | pPropHeaderType (paraProps p') == Just TitleHeader ||
-- pPropHeaderType (paraProps p') == Just SlideHeader =
-- s : TextBox [p'] : (combineShapes $ TextBox ps' : ss)
-- | otherwise = combineShapes $ TextBox ((p:ps) ++ (p':ps')) : ss
combineShapes $ TextBox ((p:ps) ++ (p':ps')) : ss
combineShapes (s:ss) = s : combineShapes ss