diff options
| -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 -- |