diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-30 12:47:49 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-30 12:47:49 -0400 |
| commit | a79ea1850389b09ddc1f3046750b3481d0e10b60 (patch) | |
| tree | 89385404764230b2c28dc84b28026b312bf0b804 | |
| parent | f78d2f62199a7bab0ae1fccafda6d97dd9681f12 (diff) | |
| download | pandoc-a79ea1850389b09ddc1f3046750b3481d0e10b60.tar.gz | |
Pandoc.hs: change BSReader to output MediaBag as well as pandoc.
| -rw-r--r-- | src/Text/Pandoc.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index be34641a9..11553383c 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -160,7 +160,7 @@ import Text.Pandoc.Writers.Haddock import Text.Pandoc.Writers.Custom import Text.Pandoc.Templates import Text.Pandoc.Options -import Text.Pandoc.Shared (safeRead, warn) +import Text.Pandoc.Shared (safeRead, warn, MediaBag) import Data.Aeson import qualified Data.ByteString.Lazy as BL import Data.List (intercalate) @@ -204,12 +204,12 @@ markdown o s = do return doc data Reader = StringReader (ReaderOptions -> String -> IO Pandoc) - | ByteStringReader (ReaderOptions -> BL.ByteString -> IO Pandoc) + | ByteStringReader (ReaderOptions -> BL.ByteString -> IO (Pandoc, MediaBag)) mkStringReader :: (ReaderOptions -> String -> Pandoc) -> Reader mkStringReader r = StringReader (\o s -> return $ r o s) -mkBSReader :: (ReaderOptions -> BL.ByteString -> Pandoc) -> Reader +mkBSReader :: (ReaderOptions -> BL.ByteString -> (Pandoc, MediaBag)) -> Reader mkBSReader r = ByteStringReader (\o s -> return $ r o s) -- | Association list of formats and readers. |