diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-06-20 21:25:39 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-20 21:25:39 +0200 |
commit | 4ba5ef46aeaf979bd74d8f4a5f6cea116527ddd3 (patch) | |
tree | 52b7af0f8119d81d652356ec16f624ff76c9836e | |
parent | 5ec84bfeb42e73acb4e309ccde34905b3254fb5c (diff) |
Updated code example.
-rw-r--r-- | src/Text/Pandoc.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 8ee1adf13..b8dba860a 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -39,12 +39,18 @@ inline links: > module Main where > import Text.Pandoc +> import Data.Text (Text) +> import qualified Data.Text.IO as T > -> markdownToRST :: String -> Either PandocError String -> markdownToRST = -> writeRST def {writerReferenceLinks = True} . readMarkdown def +> mdToRST :: Text -> IO Text +> mdToRST txt = runIOorExplode $ +> readMarkdown def txt +> >>= writeRST def{ writerReferenceLinks = True } + > -> main = getContents >>= either error return markdownToRST >>= putStrLn +> main :: IO () +> main = do +> T.getContents >>= mdToRST >>= T.putStrLn Note: all of the readers assume that the input text has @'\n'@ line endings. So if you get your input text from a web form, |