aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-08-06 14:16:25 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-08-06 14:16:25 -0700
commit56f2c61cf2ac5b3855049faee3c079e933122a6e (patch)
tree5e98dd8131727f7beb03e72eeb03f1c678dc1dcd /src
parent444b1c2ad8e2fd7eb42afccf18492350714fcb83 (diff)
parent91ab2f155fb41afa539d0074c46d8f6abfbb8bb9 (diff)
downloadpandoc-56f2c61cf2ac5b3855049faee3c079e933122a6e.tar.gz
Merge pull request #1492 from jkr/nodocxenv
Get rid of unused docx variable.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Docx.hs8
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