diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-03 19:07:45 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
| commit | dc1bbaf58d4adea40f808749b19009a73135bada (patch) | |
| tree | 529e7dc34085013d4381f628e1f2af82ee652ee5 /src/Text | |
| parent | 38064498d98567340d3456bb130c1da8dccaebb2 (diff) | |
| download | pandoc-dc1bbaf58d4adea40f808749b19009a73135bada.tar.gz | |
Removed readRSTWithWarnings (now useless).
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 11 |
2 files changed, 2 insertions, 11 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 3c3a79bb7..320af805a 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -252,7 +252,7 @@ readers = [ ("native" , StringReader $ \_ s -> readNative s) ,("markdown_github" , StringReader readMarkdown) ,("markdown_mmd", StringReader readMarkdown) ,("commonmark" , StringReader readCommonMark) - ,("rst" , StringReader readRSTWithWarnings ) + ,("rst" , StringReader readRST) ,("mediawiki" , StringReader readMediaWiki) ,("docbook" , StringReader readDocBook) ,("opml" , StringReader readOPML) diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 5e8aa20f5..6c844d274 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -29,10 +29,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Conversion from reStructuredText to 'Pandoc' document. -} -module Text.Pandoc.Readers.RST ( - readRST, - readRSTWithWarnings - ) where +module Text.Pandoc.Readers.RST ( readRST ) where import Text.Pandoc.Definition import Text.Pandoc.Builder (setMeta, fromList) import Text.Pandoc.Shared @@ -65,12 +62,6 @@ readRST opts s = do Right result -> return result Left e -> throwError e -readRSTWithWarnings :: PandocMonad m - => ReaderOptions -- ^ Reader options - -> String -- ^ String to parse (assuming @'\n'@ line endings) - -> m Pandoc -readRSTWithWarnings = readRST - type RSTParser m = ParserT [Char] ParserState m -- |