@@ -466,7 +466,7 @@ data Run = Run RunStyle [RunElem]
466466 | Endnote String
467467 deriving Show
468468
469−data RunElem = TextRun String | LnBrk
469+data RunElem = TextRun String | LnBrk | Tab
470470 deriving Show
471471
472472data RunStyle = RunStyle { isBold :: Bool
@@ -545,6 +545,9 @@ elemToRunElem ns element
545545 | qName (elName element) == "br" &&
546546 qURI (elName element) == (lookup "w" ns) =
547547 Just $ LnBrk
548+ | qName (elName element) == "tab" &&
549+ qURI (elName element) == (lookup "w" ns) =
550+ Just $ Tab
548551 | otherwise = Nothing
549552
550553