"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Text/Pandoc/Parsing.hs" between
pandoc-2.11.1.1.tar.gz and pandoc-2.11.2.tar.gz

About: Pandoc converts files from one markup format into another.

Parsing.hs  (pandoc-2.11.1.1):Parsing.hs  (pandoc-2.11.2)
skipping to change at line 800 skipping to change at line 800
return (Decimal, fromMaybe 1 $ safeRead $ T.pack num) return (Decimal, fromMaybe 1 $ safeRead $ T.pack num)
-- | Parses a '@' and optional label and -- | Parses a '@' and optional label and
-- returns (DefaultStyle, [next example number]). The next -- returns (DefaultStyle, [next example number]). The next
-- example number is incremented in parser state, and the label -- example number is incremented in parser state, and the label
-- (if present) is added to the label table. -- (if present) is added to the label table.
exampleNum :: Stream s m Char exampleNum :: Stream s m Char
=> ParserT s ParserState m (ListNumberStyle, Int) => ParserT s ParserState m (ListNumberStyle, Int)
exampleNum = do exampleNum = do
char '@' char '@'
lab <- T.pack <$> many (alphaNum <|> satisfy (\c -> c == '_' || c == '-')) lab <- mconcat . map T.pack <$>
many (many1 alphaNum <|>
try (do c <- char '_' <|> char '-'
cs <- many1 alphaNum
return (c:cs)))
st <- getState st <- getState
let num = stateNextExample st let num = stateNextExample st
let newlabels = if T.null lab let newlabels = if T.null lab
then stateExamples st then stateExamples st
else M.insert lab num $ stateExamples st else M.insert lab num $ stateExamples st
updateState $ \s -> s{ stateNextExample = num + 1 updateState $ \s -> s{ stateNextExample = num + 1
, stateExamples = newlabels } , stateExamples = newlabels }
return (Example, num) return (Example, num)
-- | Parses a '#' returns (DefaultStyle, 1). -- | Parses a '#' returns (DefaultStyle, 1).
 End of changes. 1 change blocks. 
1 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)