@@ -1,4 +1,4 @@
1−{-# LANGUAGE OverloadedStrings #-}
1+{-# LANGUAGE OverloadedStrings, CPP #-}
2module Main where
2module Main where
3import Network.Wai.Handler.CGI
3import Network.Wai.Handler.CGI
4import Network.Wai
4import Network.Wai
@@ -29,7 +29,13 @@ app req respond = do
29 $ lookup fromFormat fromFormats
29 $ lookup fromFormat fromFormats
30 let writer = maybe (error $ "could not find writer for " ++ T.unpack toFormat) id
30 let writer = maybe (error $ "could not find writer for " ++ T.unpack toFormat) id
31 $ lookup toFormat toFormats
31 $ lookup toFormat toFormats
32+#if MIN_VERSION_pandoc(1,14,0)
33+ let result = case reader $ tabFilter 4 $ T.unpack text of
34+ Right doc -> T.pack $ writer doc
35+ Left err -> error (show err)
32 let result = T.pack $ writer $ reader $ tabFilter 4 $ T.unpack text
37 let result = T.pack $ writer $ reader $ tabFilter 4 $ T.unpack text
33 let output = encode $ object [ T.pack "result" .= result
39 let output = encode $ object [ T.pack "result" .= result
34 , T.pack "name" .=
40 , T.pack "name" .=
35 if fromFormat == "markdown_strict"
41 if fromFormat == "markdown_strict"