@@ -112,8 +112,7 @@ defaultDState = DState { docxAnchorMap = M.empty
112112 , docxMediaBag = mempty
113113 , docxInHeaderBlock = False}
114114
115−data DEnv = DEnv { docxOptions :: ReaderOptions
116− , docxDocument :: Docx}
115+data DEnv = DEnv { docxOptions :: ReaderOptions}
117116
118117type DocxContext = ReaderT DEnv (State DState)
119118
@@ -717,10 +716,9 @@ bodyToOutput (Body bps) = do
717716 mediaBag)
718717
719718docxToOutput :: ReaderOptions -> Docx -> (Meta, [Block], MediaBag)
720−docxToOutput opts d@(Docx (Document _ body)) =
719+docxToOutput opts (Docx (Document _ body)) =
721720 let dState = defaultDState
722− dEnv = DEnv { docxOptions = opts
723− , docxDocument = d}
721+ dEnv = DEnv { docxOptions = opts }
724722 in
725723 evalDocxContext (bodyToOutput body) dEnv dState
726724