snap-server-0.2.12: test/testserver/Main.hs

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}

module Main where

import           Control.Concurrent

import           Snap.Http.Server
import           Test.Common.TestHandler


{-

/pong
/fileserve
/echo
pipelined POST requests
slowloris attack / timeout test

-}


main :: IO ()
main = do
    m <- newEmptyMVar

    forkIO $ go m
    takeMVar m

    return ()

  where
    go m = do
        httpServe "*" 3000 "localhost" (Just "ts-access.log")
                  (Just "ts-error.log") testHandler 
        putMVar m ()