1 module Rakka.Environment
8 import qualified Network.HTTP.Lucu.Config as LC
11 data Environment = Environment {
12 envLocalStateDir :: FilePath
13 , envLucuConf :: LC.Config
17 setupEnv :: FilePath -> PortNumber -> IO Environment
18 setupEnv lsdir portNum
19 = do let lucuConf = LC.defaultConfig {
20 LC.cnfServerPort = PortNumber portNum
22 return $ Environment {
23 envLocalStateDir = lsdir
24 , envLucuConf = lucuConf