@@ -219,34 +219,9 @@ parseFormatSpec = parse formatSpec ""
219219 '-' -> disableExtension ext
220220 _ -> enableExtension ext
221221
222−-- TODO: when we get the PandocMonad stuff all sorted out,
223−-- we can simply these types considerably. Errors/MediaBag can be
224−-- part of the monad's internal state.
225222data Reader m = StringReader (ReaderOptions -> String -> m Pandoc)
226223 | ByteStringReader (ReaderOptions -> BL.ByteString -> m Pandoc)
227224
228−-- mkStringReader :: (ReaderOptions -> String -> Either PandocError Pandoc) -> Reader IO
229−-- mkStringReader r = StringReader (\o s -> return $ r o s)
230−
231−-- mkStringReaderWithWarnings :: (ReaderOptions -> String -> Either PandocError (Pandoc, [String])) -> Reader IO
232−-- mkStringReaderWithWarnings r = StringReader $ \o s ->
233−-- case r o s of
234−-- Left err -> return $ Left err
235−-- Right (doc, warnings) -> do
236−-- mapM_ warn warnings
237−-- return (Right doc)
238−
239−-- mkBSReader :: (ReaderOptions -> BL.ByteString -> Either PandocError (Pandoc, MediaBag)) -> Reader IO
240−-- mkBSReader r = ByteStringReader (\o s -> return $ r o s)
241−
242−-- mkBSReaderWithWarnings :: (ReaderOptions -> BL.ByteString -> Either PandocError (Pandoc, MediaBag, [String])) -> Reader IO
243−-- mkBSReaderWithWarnings r = ByteStringReader $ \o s ->
244−-- case r o s of
245−-- Left err -> return $ Left err
246−-- Right (doc, mediaBag, warnings) -> do
247−-- mapM_ warn warnings
248−-- return $ Right (doc, mediaBag)
249−
250225-- | Association list of formats and readers.
251226readers :: PandocMonad m => [(String, Reader m)]
252227readers = [ ("native" , StringReader readNative)