Docx reader: Add "Hyperlink" to blacklisted styles.

This is the only one so far. We'll add others as they show up.
This commit is contained in:
Jesse Rosenthal 2014-08-17 17:04:14 -04:00
parent 15ce28b8ca
commit 9da7b0946e

View file

@ -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