diff options
| -rw-r--r-- | src/Text/Pandoc/Options.hs | 4 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index f4ab0d2b4..e64e7afda 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -90,7 +90,7 @@ data Extension = | Ext_hard_line_breaks -- ^ All newlines become hard line breaks | Ext_literate_haskell -- ^ Enable literate Haskell conventions | Ext_abbreviations -- ^ PHP markdown extra abbreviation definitions - | Ext_header_identifiers -- ^ Automatic identifiers for headers + | Ext_auto_identifiers -- ^ Automatic identifiers for headers | Ext_implicit_header_references -- ^ Implicit reference links for headers deriving (Show, Read, Enum, Eq, Ord, Bounded) @@ -128,7 +128,7 @@ pandocExtensions = Set.fromList , Ext_strikeout , Ext_superscript , Ext_subscript - , Ext_header_identifiers + , Ext_auto_identifiers , Ext_implicit_header_references ] diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index c27ccf6fd..5ff196571 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -377,7 +377,7 @@ addToHeaderList :: F Inlines -> MarkdownParser String addToHeaderList text = do let headerList = B.toList $ runF text defaultParserState updateState $ \st -> st{ stateHeaders = headerList : stateHeaders st } - (do guardEnabled Ext_header_identifiers + (do guardEnabled Ext_auto_identifiers ids <- stateIdentifiers `fmap` getState let id' = uniqueIdent headerList ids updateState $ \st -> st{ stateIdentifiers = id' : ids } |