happs-tutorial-0.8: src/Redirector.hs

module Main where
import Happstack.Server
import Happstack.State
import Misc
import System.Environment



main = simpleHTTP (Conf {port=5001}) (ServerPartT $ \rq -> seeOther "http://happstutorial.com" (toResponse ""))