diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-19 17:55:02 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-19 17:55:02 -0400 |
| commit | 0e7d2dbd4304902cb6c6d4e9618592b5148dc598 (patch) | |
| tree | 97fd67ab50223bd9de24c945384ad8448ba22acf /src/Text/Pandoc/Readers/Docx.hs | |
| parent | 86fc44d6b3f82a2b274d4b592d1dd6152bd1eaf5 (diff) | |
Have Docx reader properly interpret tabs.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 4035cde99..c43879ed9 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -134,10 +134,12 @@ codeDivs = ["SourceCode"] runElemToInlines :: RunElem -> [Inline] runElemToInlines (TextRun s) = strToInlines s runElemToInlines (LnBrk) = [LineBreak] +runElemToInlines (Tab) = [Space] runElemToString :: RunElem -> String runElemToString (TextRun s) = s runElemToString (LnBrk) = ['\n'] +runElemToString (Tab) = ['\t'] runElemsToString :: [RunElem] -> String runElemsToString = concatMap runElemToString |