aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-01-13 09:34:03 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-01-13 09:34:03 -0500
commite08776b9d51a90e9f948f8f5dd2c3c2588d50942 (patch)
tree1a25a5045659bbb2a452d68eab6fed1559d3461b /src/Text/Pandoc
parenta842d3ae7d511267dddb7ec1fef04e58495d08ce (diff)
downloadpandoc-e08776b9d51a90e9f948f8f5dd2c3c2588d50942.tar.gz
Powerpoint writer: code cleanup
Last commit accidentally left commented-out code in.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs
index b6fdf0883..86f07d9c6 100644
--- a/src/Text/Pandoc/Writers/Powerpoint.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint.hs
@@ -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