17 lines
506 B
Haskell
17 lines
506 B
Haskell
module Main where
|
|
|
|
-- TODO:
|
|
-- We need some logic to compile with different backends. Right now we only
|
|
-- support warp. But a (fast) cgi backend would be nice too.
|
|
|
|
-- TODO:
|
|
-- We need some way too configure things, like the port we run on.
|
|
-- see Network.Wai.Handler.Warp.Settings and Network.Wai.Handler.Warp.runSettings
|
|
import WaiApp
|
|
import Control.Concurrent.MVar
|
|
import Network.Wai.Handler.Warp
|
|
|
|
main :: IO ()
|
|
main = do
|
|
serverState <- newMVar newServerState
|
|
run 8080 $ waiApplication serverState
|