diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-17 19:59:54 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-17 19:59:54 +0100 |
| commit | 1e43e3767e8e92560a304fb7661da02f4ee4ba12 (patch) | |
| tree | f8ef2f76929ae4f2cfc5fc2ae62a2a89815104a7 | |
| parent | a3412354a401a3e691de31caeb013e704399602f (diff) | |
| download | pandoc-1e43e3767e8e92560a304fb7661da02f4ee4ba12.tar.gz | |
Markdown reader: Use logMessage instead of report.
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 9ed0c5880..80a1cd7a2 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -268,7 +268,8 @@ yamlMetaBlock = try $ do ) nullMeta hashmap Right Yaml.Null -> return nullMeta Right _ -> do - report $ CouldNotParseYamlMetadata "not an object" + logMessage $ + CouldNotParseYamlMetadata "not an object" pos return nullMeta Left err' -> do @@ -280,12 +281,12 @@ yamlMetaBlock = try $ do yamlLine = yline , yamlColumn = ycol }}) -> - report $ CouldNotParseYamlMetadata + logMessage $ CouldNotParseYamlMetadata problem (setSourceLine (setSourceColumn pos (sourceColumn pos + ycol)) (sourceLine pos + 1 + yline)) - _ -> report $ CouldNotParseYamlMetadata + _ -> logMessage $ CouldNotParseYamlMetadata (show err') pos return nullMeta updateState $ \st -> st{ stateMeta' = stateMeta' st <> (return meta') } @@ -364,6 +365,7 @@ parseMarkdown = do let Pandoc _ bs = B.doc $ runF blocks st eastAsianLineBreaks <- option False $ True <$ guardEnabled Ext_east_asian_line_breaks + reportLogMessages return $ (if eastAsianLineBreaks then bottomUp softBreakFilter else id) $ Pandoc meta bs @@ -403,7 +405,7 @@ referenceKey = try $ do let oldkeys = stateKeys st let key = toKey raw case M.lookup key oldkeys of - Just _ -> report $ DuplicateLinkReference raw pos + Just _ -> logMessage $ DuplicateLinkReference raw pos Nothing -> return () updateState $ \s -> s { stateKeys = M.insert key (target, attr') oldkeys } return $ return mempty @@ -469,7 +471,7 @@ noteBlock = try $ do let newnote = (ref, parsed) oldnotes <- stateNotes' <$> getState case lookup ref oldnotes of - Just _ -> report $ DuplicateNoteReference ref pos + Just _ -> logMessage $ DuplicateNoteReference ref pos Nothing -> return () updateState $ \s -> s { stateNotes' = newnote : oldnotes } return mempty |