From e08776b9d51a90e9f948f8f5dd2c3c2588d50942 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sat, 13 Jan 2018 09:34:03 -0500
Subject: [PATCH] Powerpoint writer: code cleanup

Last commit accidentally left commented-out code in.
---
 src/Text/Pandoc/Writers/Powerpoint.hs | 7 -------
 1 file changed, 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