使用Haskell和Yesod激活Pandoc

Question

我想使用Yesod和Haskell来调用Pandoc，以将某种格式转换为其他格式。

pandocConverted :: String -> IO String 
pandocConverted input = do
    (Just hIn, Just hOut, _, _) <- createProcess (proc "pandoc" []) { std_in = CreatePipe, std_out = CreatePipe }
    hPutStr hIn input    
    converted  <- hGetContents hOut
    return converted

这很好。但是，如何翻译成其他格式？

例如，我怎么这样称呼pandoc？

pandoc -s README -o example4.tex

或这个？

pandoc -s -S -t docbook README -o example9.db

Answer 1

在管道中使用时，可以使用-f和-t标志来指定源格式和目标格式pandoc。

  createProcess (proc "pandoc" ["-f", "markdown", "-t", "latex"])

但是，由于pandoc主要是Haskell库（pandoc可执行文件只是一个命令行界面），因此直接在Yesod程序中调用该库而不是使用会更加习惯createProcess。

import Text.Pandoc
import Text.Pandoc.Error (handleError)
import Control.Arrow

pandocConverted' :: String -> String 
pandocConverted' = readMarkdown def
               >>> fmap (writeLaTeX def {writerReferenceLinks = True})
               >>> handleError