module Server where import Happstack.Server ( Browsing(EnableBrowsing), nullConf , serveDirectory, simpleHTTP ) startServer :: IO () startServer = simpleHTTP nullConf $ serveDirectory EnableBrowsing ["index.html"] "site/"