Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Get rid of unused docx variable.

Browse source 
Since changing the Docx type, this is no longer necessary. Thanks to
Matthew Pickering for picking up on this.
This commit is contained in:
Jesse Rosenthal 2014-08-06 12:19:24 -04:00
parent 444b1c2ad8
commit 91ab2f155f
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Readers/Docx.hs
View file

@ -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