Ext_header_identifiers -> Ext_auto_identifiers.

This commit is contained in:
John MacFarlane 2013-01-10 19:58:39 -08:00
parent cf4cd2ccb0
commit 1a7686ad79
2 changed files with 3 additions and 3 deletions

View file

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

View file

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