Snap project template.

Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Snap.Types
import Snap.Http.Server
import Snap.Util.FileServe

main = do
    let handler = route [ ("", writeBS "Hello world!")
                        , ("public", fileServe "public")
                        ]

    -- address, port, hostname, access log, error log, handler
    httpServe "*" 8080 "localhost" Nothing Nothing handler

snap-helloworld.cabal

Name:                snap-helloworld
Version:             0.1
Category:            Web
Build-type:          Simple
Cabal-version:       >=1.6

Executable snap-helloworld
  HS-Source-dirs:    src
  Main-is:           Main.hs
  Other-modules:      
  Build-depends:     base ==4.*,
                     snap-core,
                     snap-server