module Rakka.Environment
    ( Environment(..)
    , setupEnv
    )
    where

import           Network
import qualified Network.HTTP.Lucu.Config as LC


data Environment = Environment {
      envLocalStateDir :: FilePath
    , envLucuConf      :: LC.Config
    }


setupEnv :: FilePath -> PortNumber -> IO Environment
setupEnv lsdir portNum
    = do let lucuConf = LC.defaultConfig {
                          LC.cnfServerPort = PortNumber portNum
                        }
         return $ Environment {
                      envLocalStateDir = lsdir
                    , envLucuConf      = lucuConf
                    }