Использование 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 является foremostly библиотека Haskell (к которому pandoc исполняемый только интерфейс командной строки), это было бы более идиоматических вызвать библиотеку непосредственно в программе Йесод, вместо используя createProcess.

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

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