aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-08-06 12:19:24 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-08-06 12:19:24 -0400
commit91ab2f155fb41afa539d0074c46d8f6abfbb8bb9 (patch)
tree5e98dd8131727f7beb03e72eeb03f1c678dc1dcd /src/Text
parent444b1c2ad8e2fd7eb42afccf18492350714fcb83 (diff)
downloadpandoc-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.
Diffstat (limited to 'src/Text')
-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