Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (17 sloc) 547 Bytes
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Applicative
import Snap.Http.Server
import Snap.Http.Server.Config
import Snap.Iteratee
import Snap.Types
import Snap.Util.FileServe
site :: Snap ()
site = fileServeSingle' "text/plain" "static-file.txt"
main :: IO ()
main =
let config = addListen (ListenHttp "*" 3000) $
setAccessLog Nothing $
setErrorLog Nothing $
defaultConfig
in httpServe config site