muon-0.1.0.8: src/Server.hs

module Server where

import Happstack.Server ( Browsing (EnableBrowsing), nullConf
                        , serveDirectory, simpleHTTP
                        )
import Constant

startServer :: IO ()
startServer = simpleHTTP nullConf
            $ serveDirectory EnableBrowsing ["index.html"] sitePath