From 9da7b0946eed1ad5c7a781cbf765cc6fcd67afd9 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 17 Aug 2014 17:04:14 -0400
Subject: Docx reader: Add "Hyperlink" to blacklisted styles.

This is the only one so far. We'll add others as they show up.
---
 src/Text/Pandoc/Readers/Docx.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index 5e00e9996..653439de1 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -229,12 +229,12 @@ parPartToString (ExternalHyperLink _ runs) = concatMap runToString runs
 parPartToString _ = ""
 
 blacklistedCharStyles :: [String]
-blacklistedCharStyles = []
+blacklistedCharStyles = ["Hyperlink"]
 
 resolveDependentRunStyle :: RunStyle -> RunStyle
 resolveDependentRunStyle rPr
   | Just (s, _)  <- rStyle rPr, s `elem` blacklistedCharStyles =
-    rPr{rStyle = Nothing}
+    rPr
   | Just (_, cs) <- rStyle rPr =
       let rPr' = resolveDependentRunStyle cs
       in
-- 
cgit v1.2.3