@@ -466,7 +466,7 @@ data Run = Run RunStyle [RunElem]
466 | Endnote String
466 | Endnote String
467 deriving Show
467 deriving Show
469−data RunElem = TextRun String | LnBrk
469+data RunElem = TextRun String | LnBrk | Tab
470 deriving Show
470 deriving Show
472data RunStyle = RunStyle { isBold :: Bool
472data RunStyle = RunStyle { isBold :: Bool
@@ -545,6 +545,9 @@ elemToRunElem ns element
545 | qName (elName element) == "br" &&
545 | qName (elName element) == "br" &&
546 qURI (elName element) == (lookup "w" ns) =
546 qURI (elName element) == (lookup "w" ns) =
547 Just $ LnBrk
547 Just $ LnBrk
548+ | qName (elName element) == "tab" &&
549+ qURI (elName element) == (lookup "w" ns) =
548 | otherwise = Nothing
551 | otherwise = Nothing