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



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