From 411434bf130a3116290c7ca54358678e03d0d92b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 28 Jan 2017 23:34:29 +0100 Subject: Removed some old commented-out code. --- src/Text/Pandoc.hs | 25 ------------------------- 1 file changed, 25 deletions(-) (limited to 'src/Text') 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) -- cgit v1.2.3