module Happstack.Server.Env
( simpleHTTP
, module Happstack.Server
) where
import Happstack.Server hiding (simpleHTTP)
import qualified Happstack.Server as Happstack
import Safe (readMay)
import System.Environment (getEnvironment)
simpleHTTP :: ToMessage a => Conf -> ServerPartT IO a -> IO ()
simpleHTTP conf serverpart = do
env <- getEnvironment
case lookup "PORT" env of
Nothing -> error "PORT environment variable not found"
Just portS ->
case readMay portS of
Nothing -> error $ "Invalid PORT enviornment variable: " ++ portS
Just port' -> Happstack.simpleHTTP conf
{ port = port'
} serverpart