7e83686 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

trypandoc: add 2 second timeout.

7e83686John MacFarlane6 years ago

pandoc.cabal+1−1

@@ -723,7 +723,7 @@ executable trypandoc

723 main-is: trypandoc.hs

724 hs-source-dirs: trypandoc

725 if flag(trypandoc)

726− build-depends: aeson, http-types, wai >= 0.3, wai-extra

726+ build-depends: aeson, http-types, wai >= 0.3, wai-extra >= 3.0.24

727 buildable: True

728 else

729 buildable: False

trypandoc/trypandoc.hs+2−1

@@ -12,6 +12,7 @@ Provides a webservice which allows to try pandoc in the browser.

12-}

13module Main where

14import Network.Wai.Handler.CGI

15+import Network.Wai.Middleware.Timeout (timeout)

15import Network.Wai

16import Network.Wai

16import Control.Applicative ((<$>))

17import Control.Applicative ((<$>))

17import Data.Maybe (fromMaybe)

18import Data.Maybe (fromMaybe)

@@ -29,7 +30,7 @@ import qualified Data.Text as T

29import Data.Text (Text)

30import Data.Text (Text)

31main :: IO ()

32main :: IO ()

32−main = run app

33+main = run $ timeout 2 app

34app :: Application

35app :: Application

35app req respond = do

36app req respond = do