12 lines
315 B
Plaintext
12 lines
315 B
Plaintext
import Controller (with~sitearg~)
|
|
import System.IO (hPutStrLn, stderr)
|
|
import Network.Wai.Middleware.Debug (debug)
|
|
import Network.Wai.Handler.Warp (run)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let port = 3000
|
|
hPutStrLn stderr $ "Application launched, listening on port " ++ show port
|
|
with~sitearg~ $ run port . debug
|
|
|