diff options
author | Alexander <ilabdsf@gmail.com> | 2019-01-01 08:41:21 +0300 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-12-31 21:41:21 -0800 |
commit | 792f18a7fa64773f7d8466740f8da5e434c2da4f (patch) | |
tree | b732d46ac8023872e42a0b94e4c05d7e44812c2d /src/Text/Pandoc/Readers/Org | |
parent | ffc2192caffd101666dd6c793631798d7f22878f (diff) | |
download | pandoc-792f18a7fa64773f7d8466740f8da5e434c2da4f.tar.gz |
Remove unused HasHeaderMap (#5175)
It is updated by some readers, but never actually used.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org')
-rw-r--r-- | src/Text/Pandoc/Readers/Org/ParserState.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Readers/Org/ParserState.hs b/src/Text/Pandoc/Readers/Org/ParserState.hs index 59478256f..d57b848da 100644 --- a/src/Text/Pandoc/Readers/Org/ParserState.hs +++ b/src/Text/Pandoc/Readers/Org/ParserState.hs @@ -64,11 +64,11 @@ import qualified Data.Map as M import qualified Data.Set as Set import Data.Text (Text) -import Text.Pandoc.Builder (Blocks, Inlines) +import Text.Pandoc.Builder (Blocks) import Text.Pandoc.Definition (Meta (..), nullMeta) import Text.Pandoc.Logging import Text.Pandoc.Options (ReaderOptions (..)) -import Text.Pandoc.Parsing (Future, HasHeaderMap (..), HasIdentifierList (..), +import Text.Pandoc.Parsing (Future, HasIdentifierList (..), HasIncludeFiles (..), HasLastStrPosition (..), HasLogMessages (..), HasMacros (..), HasQuoteContext (..), HasReaderOptions (..), @@ -120,7 +120,6 @@ data OrgParserState = OrgParserState , orgStateExcludedTags :: Set.Set Tag , orgStateExcludedTagsChanged :: Bool , orgStateExportSettings :: ExportSettings - , orgStateHeaderMap :: M.Map Inlines String , orgStateIdentifiers :: Set.Set String , orgStateIncludeFiles :: [String] , orgStateLastForbiddenCharPos :: Maybe SourcePos @@ -160,10 +159,6 @@ instance HasIdentifierList OrgParserState where extractIdentifierList = orgStateIdentifiers updateIdentifierList f s = s{ orgStateIdentifiers = f (orgStateIdentifiers s) } -instance HasHeaderMap OrgParserState where - extractHeaderMap = orgStateHeaderMap - updateHeaderMap f s = s{ orgStateHeaderMap = f (orgStateHeaderMap s) } - instance HasLogMessages OrgParserState where addLogMessage msg st = st{ orgLogMessages = msg : orgLogMessages st } getLogMessages st = reverse $ orgLogMessages st @@ -191,7 +186,6 @@ defaultOrgParserState = OrgParserState , orgStateExportSettings = def , orgStateExcludedTags = Set.singleton $ Tag "noexport" , orgStateExcludedTagsChanged = False - , orgStateHeaderMap = M.empty , orgStateIdentifiers = Set.empty , orgStateIncludeFiles = [] , orgStateLastForbiddenCharPos = Nothing |