From 91ab2f155fb41afa539d0074c46d8f6abfbb8bb9 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Wed, 6 Aug 2014 12:19:24 -0400 Subject: 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. --- src/Text/Pandoc/Readers/Docx.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src') 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 -- cgit v1.2.3