aboutsummaryrefslogtreecommitdiff
path: root/trypandoc
diff options
context:
space:
mode:
Diffstat (limited to 'trypandoc')
-rw-r--r--trypandoc/trypandoc.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs
index 810752afa..385fcfe55 100644
--- a/trypandoc/trypandoc.hs
+++ b/trypandoc/trypandoc.hs
@@ -12,6 +12,7 @@ Provides a webservice which allows to try pandoc in the browser.
-}
module Main where
import Network.Wai.Handler.CGI
+import Network.Wai.Middleware.Timeout (timeout)
import Network.Wai
import Control.Applicative ((<$>))
import Data.Maybe (fromMaybe)
@@ -29,7 +30,7 @@ import qualified Data.Text as T
import Data.Text (Text)
main :: IO ()
-main = run app
+main = run $ timeout 2 app
app :: Application
app req respond = do