From e6b04fa0cfbb9453dbb203a71740ef6c3404d589 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Sun, 31 Dec 2017 10:18:03 -0500 Subject: Docx reader: minor cleanup. --- src/Text/Pandoc/Readers/Docx.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3