muon-0.1.0.4: src/Server.hs

module Server where

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