diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-28 23:34:29 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-28 23:34:29 +0100 |
| commit | 411434bf130a3116290c7ca54358678e03d0d92b (patch) | |
| tree | be81bced490458b2b42b7e8cad1ce7a93ff87126 | |
| parent | 2bac0356329fb1ea4ac30d093e253fd11f6d8bb6 (diff) | |
| download | pandoc-411434bf130a3116290c7ca54358678e03d0d92b.tar.gz | |
Removed some old commented-out code.
| -rw-r--r-- | src/Text/Pandoc.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index a1c3f8486..3d28dbfb9 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -219,34 +219,9 @@ parseFormatSpec = parse formatSpec "" '-' -> disableExtension ext _ -> enableExtension ext --- TODO: when we get the PandocMonad stuff all sorted out, --- we can simply these types considerably. Errors/MediaBag can be --- part of the monad's internal state. data Reader m = StringReader (ReaderOptions -> String -> m Pandoc) | ByteStringReader (ReaderOptions -> BL.ByteString -> m Pandoc) --- mkStringReader :: (ReaderOptions -> String -> Either PandocError Pandoc) -> Reader IO --- mkStringReader r = StringReader (\o s -> return $ r o s) - --- mkStringReaderWithWarnings :: (ReaderOptions -> String -> Either PandocError (Pandoc, [String])) -> Reader IO --- mkStringReaderWithWarnings r = StringReader $ \o s -> --- case r o s of --- Left err -> return $ Left err --- Right (doc, warnings) -> do --- mapM_ warn warnings --- return (Right doc) - --- mkBSReader :: (ReaderOptions -> BL.ByteString -> Either PandocError (Pandoc, MediaBag)) -> Reader IO --- mkBSReader r = ByteStringReader (\o s -> return $ r o s) - --- mkBSReaderWithWarnings :: (ReaderOptions -> BL.ByteString -> Either PandocError (Pandoc, MediaBag, [String])) -> Reader IO --- mkBSReaderWithWarnings r = ByteStringReader $ \o s -> --- case r o s of --- Left err -> return $ Left err --- Right (doc, mediaBag, warnings) -> do --- mapM_ warn warnings --- return $ Right (doc, mediaBag) - -- | Association list of formats and readers. readers :: PandocMonad m => [(String, Reader m)] readers = [ ("native" , StringReader readNative) |