@@ -1,4 +1,4 @@
1−{-# LANGUAGE OverloadedStrings, CPP #-}
1+{-# LANGUAGE OverloadedStrings #-}
22module Main where
33import Network.Wai.Handler.CGI
44import Network.Wai
@@ -29,13 +29,9 @@ app req respond = do
2929 $ lookup fromFormat fromFormats
3030 let writer = maybe (error $ "could not find writer for " ++ T.unpack toFormat) id
3131 $ lookup toFormat toFormats
32−#if MIN_VERSION_pandoc(1,14,0)
3332 let result = case reader $ tabFilter 4 $ T.unpack text of
3433 Right doc -> T.pack $ writer doc
3534 Left err -> error (show err)
36−#else
37− let result = T.pack $ writer $ reader $ tabFilter 4 $ T.unpack text
38−#endif
3935 let output = encode $ object [ T.pack "result" .= result
4036 , T.pack "name" .=
4137 if fromFormat == "markdown_strict"