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/Muse.hs | |
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/Muse.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 70cd47b58..42d9b539b 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -74,7 +74,6 @@ type F = Future MuseState data MuseState = MuseState { museMeta :: F Meta -- ^ Document metadata , museOptions :: ReaderOptions - , museHeaders :: M.Map Inlines String -- ^ List of headers and ids (used for implicit ref links) , museIdentifierList :: Set.Set String , museLastSpacePos :: Maybe SourcePos -- ^ Position after last space or newline parsed , museLastStrPos :: Maybe SourcePos -- ^ Position after last str parsed @@ -85,7 +84,6 @@ data MuseState = MuseState { museMeta :: F Meta -- ^ Document metadata instance Default MuseState where def = MuseState { museMeta = return nullMeta , museOptions = def - , museHeaders = M.empty , museIdentifierList = Set.empty , museLastStrPos = Nothing , museLastSpacePos = Nothing @@ -108,10 +106,6 @@ type MuseParser m = ParserT Text MuseState (ReaderT MuseEnv m) instance HasReaderOptions MuseState where extractReaderOptions = museOptions -instance HasHeaderMap MuseState where - extractHeaderMap = museHeaders - updateHeaderMap f st = st{ museHeaders = f $ museHeaders st } - instance HasIdentifierList MuseState where extractIdentifierList = museIdentifierList updateIdentifierList f st = st{ museIdentifierList = f $ museIdentifierList st } |