diff options
Diffstat (limited to 'trypandoc/trypandoc.hs')
| -rw-r--r-- | trypandoc/trypandoc.hs | 3 |
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 |