From 89326046499ea61bc0e7829de510c3fd6e1f591c Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sat, 24 Mar 2018 10:16:55 -0400
Subject: Revert "Powerpoint writer: Remove spPr tag from non-body layouts"

This reverts commit 99fa850a37cc3e56b415754c70ea2d98da709584.
---
 src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
index 26b9c6df4..24bc226b9 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
@@ -1038,11 +1038,7 @@ nonBodyTextToElement layout phType paraElements
       let txBody = mknode "p:txBody" [] $
                    [mknode "a:bodyPr" [] (), mknode "a:lstStyle" [] ()] ++
                    [element]
-          emptySpPr = mknode "p:spPr" [] ()
-      return $
-        replaceNamedChildren ns "p" "txBody" [txBody] $
-        replaceNamedChildren ns "p" "spPr" [emptySpPr] $
-        sp
+      return $ replaceNamedChildren ns "p" "txBody" [txBody] sp
   -- XXX: TODO
   | otherwise = return $ mknode "p:sp" [] ()
 
-- 
cgit v1.2.3