-- with gracious thanks to mightybyte:
-- http://softwaresimply.blogspot.com/2008_02_01_archive.html

module Main where
import HAppS.Server
import Model
import Controller
import Misc

main = do
  let p = 5001 
  startSystemState entryPoint -- start the HAppS state system
  putStrLn $ "starting on port " ++ (show p)
  simpleHTTP (Conf {port=p}) controller -- start serving web pages