Delayed

compile.sh

ghc -XPackageImports pong.hs

pong.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import             System
import             Control.Applicative
import "monads-fd" Control.Monad.Trans
import             Snap.Http.Server
import             Snap.Iteratee
import             Snap.Types
import             Snap.Util.FileServe
import qualified   Control.Concurrent as T

site :: Snap ()
site = do
    liftIO (T.threadDelay $ 1000000 * 5)
    writeBS "PONG"

main :: IO ()
main = do
    args <- getArgs
    let port = case args of
                   []  -> 3000
                   p:_ -> read p
        config = setPort port $
                 setAccessLog Nothing $
                 defaultConfig
    httpServe config site