From 4b38e9f1f0d12e46c27fd3782d8f3e32d8ee90a0 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 17 Aug 2014 20:11:50 -0400
Subject: Docx reader: whitespace fix.

---
 src/Text/Pandoc/Readers/Docx.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index 319e95610..188fa4a42 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -263,17 +263,17 @@ runStyleToTransform rPr
   | Just True <- isItalic rPr =
       emph . (runStyleToTransform rPr {isItalic = Nothing})
   | Just True <- isBold rPr =
-        strong . (runStyleToTransform rPr {isBold = Nothing})
+      strong . (runStyleToTransform rPr {isBold = Nothing})
   | Just True <- isSmallCaps rPr =
-          smallcaps . (runStyleToTransform rPr {isSmallCaps = Nothing})
+      smallcaps . (runStyleToTransform rPr {isSmallCaps = Nothing})
   | Just True <- isStrike rPr =
-            strikeout . (runStyleToTransform rPr {isStrike = Nothing})
+      strikeout . (runStyleToTransform rPr {isStrike = Nothing})
   | Just SupScrpt <- rVertAlign rPr =
-              superscript . (runStyleToTransform rPr {rVertAlign = Nothing})
+      superscript . (runStyleToTransform rPr {rVertAlign = Nothing})
   | Just SubScrpt <- rVertAlign rPr =
-                subscript . (runStyleToTransform rPr {rVertAlign = Nothing})
+      subscript . (runStyleToTransform rPr {rVertAlign = Nothing})
   | Just "single" <- rUnderline rPr =
-                  emph . (runStyleToTransform rPr {rUnderline = Nothing})
+      emph . (runStyleToTransform rPr {rUnderline = Nothing})
   | otherwise = id
 
 runToInlines :: Run -> DocxContext Inlines
-- 
cgit v1.2.3