diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 6a33b6ea3..367e26bd0 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -112,8 +112,7 @@ defaultDState = DState { docxAnchorMap = M.empty , docxMediaBag = mempty , docxInHeaderBlock = False} -data DEnv = DEnv { docxOptions :: ReaderOptions - , docxDocument :: Docx} +data DEnv = DEnv { docxOptions :: ReaderOptions} type DocxContext = ReaderT DEnv (State DState) @@ -717,10 +716,9 @@ bodyToOutput (Body bps) = do mediaBag) docxToOutput :: ReaderOptions -> Docx -> (Meta, [Block], MediaBag) -docxToOutput opts d@(Docx (Document _ body)) = +docxToOutput opts (Docx (Document _ body)) = let dState = defaultDState - dEnv = DEnv { docxOptions = opts - , docxDocument = d} + dEnv = DEnv { docxOptions = opts } in evalDocxContext (bodyToOutput body) dEnv dState |