diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-06 14:16:25 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-06 14:16:25 -0700 |
| commit | 56f2c61cf2ac5b3855049faee3c079e933122a6e (patch) | |
| tree | 5e98dd8131727f7beb03e72eeb03f1c678dc1dcd /src/Text/Pandoc | |
| parent | 444b1c2ad8e2fd7eb42afccf18492350714fcb83 (diff) | |
| parent | 91ab2f155fb41afa539d0074c46d8f6abfbb8bb9 (diff) | |
| download | pandoc-56f2c61cf2ac5b3855049faee3c079e933122a6e.tar.gz | |
Merge pull request #1492 from jkr/nodocxenv
Get rid of unused docx variable.
Diffstat (limited to 'src/Text/Pandoc')
| -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 |