Docx reader: remove now-unnecessary state variable.

This also introduces a `defaultDState` value.
This commit is contained in:
Jesse Rosenthal 2014-07-24 10:51:13 -04:00
parent cdd769624f
commit cd9ca5a18a

View file

@ -105,14 +105,12 @@ readDocx opts bytes =
data DState = DState { docxAnchorMap :: M.Map String String
, docxMediaBag :: MediaBag
, docxInHeaderBlock :: Bool
, docxInTexSubscript :: Bool }
, docxInHeaderBlock :: Bool}
defaultDState :: DState
defaultDState = DState { docxAnchorMap = M.empty
, docxMediaBag = mempty
, docxInHeaderBlock = False
, docxInTexSubscript = False}
, docxInHeaderBlock = False}
data DEnv = DEnv { docxOptions :: ReaderOptions
, docxDocument :: Docx}