From a7c67c897ecebe339078b212a93a35a54a6fc143 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sat, 21 Feb 2015 09:18:53 -0500
Subject: Docx reader: Minor cleanup.

The previous commits had some code repetition. This just makes it a bit
easier to read.
---
 src/Text/Pandoc/Readers/Docx.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index 1a95b753d..d61cc8b1b 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -278,11 +278,12 @@ runToInlines (Run rs runElems)
   | Just (s, _) <- rStyle rs
   , s `elem` codeStyles =
     let rPr = resolveDependentRunStyle rs
+        codeString = code $ concatMap runElemToString runElems
     in
      return $ case rVertAlign rPr of
-     Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems
-     Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems
-     _             -> code $ concatMap runElemToString runElems
+     Just SupScrpt -> superscript codeString
+     Just SubScrpt -> subscript codeString
+     _             -> codeString
   | otherwise = do
     let ils = concatReduce (map runElemToInlines runElems)
     return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils
-- 
cgit v1.2.3