diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-06 12:19:24 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-06 12:19:24 -0400 |
| commit | 91ab2f155fb41afa539d0074c46d8f6abfbb8bb9 (patch) | |
| tree | 5e98dd8131727f7beb03e72eeb03f1c678dc1dcd | |
| parent | 444b1c2ad8e2fd7eb42afccf18492350714fcb83 (diff) | |
| download | pandoc-91ab2f155fb41afa539d0074c46d8f6abfbb8bb9.tar.gz | |
Get rid of unused docx variable.
Since changing the Docx type, this is no longer necessary. Thanks to
Matthew Pickering for picking up on this.
| -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 |