diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-31 10:18:03 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-31 10:18:03 -0500 |
| commit | e6b04fa0cfbb9453dbb203a71740ef6c3404d589 (patch) | |
| tree | c805791cd8d650e1201c4ecb7ccb1eb032a9cad8 | |
| parent | 3f30455b4989e7a31a59b7278175476cfd95d41d (diff) | |
Docx reader: minor cleanup.
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 6ca1590a4..a2f22c1ea 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -344,7 +344,7 @@ blocksToInlinesWarn cmtId blks = do "Docx comment " ++ cmtId ++ " will not retain formatting" return $ blocksToInlines' blkList --- The majority of work in this function is done in the primted +-- The majority of work in this function is done in the primed -- subfunction `partPartToInlines'`. We make this wrapper so that we -- don't have to modify `docxImmedPrevAnchor` state after every function. parPartToInlines :: PandocMonad m => ParPart -> DocxContext m Inlines @@ -361,6 +361,7 @@ parPartToInlines parPart = ils <- parPartToInlines' parPart modify $ \s -> s{ docxImmedPrevAnchor = Nothing} return ils + parPartToInlines' :: PandocMonad m => ParPart -> DocxContext m Inlines parPartToInlines' (PlainRun r) = runToInlines r parPartToInlines' (Insertion _ author date runs) = do |