1 module Rakka.Environment
8 import qualified Network.HTTP.Lucu.Config as LC
10 import Rakka.SystemConfig
13 data Environment = Environment {
14 envLocalStateDir :: !FilePath
15 , envLucuConf :: !LC.Config
16 , envStorage :: !Storage
17 , envSysConf :: !SystemConfig
21 setupEnv :: FilePath -> PortNumber -> IO Environment
22 setupEnv lsdir portNum
23 = do let lucuConf = LC.defaultConfig {
24 LC.cnfServerPort = PortNumber portNum
26 return $ Environment {
27 envLocalStateDir = lsdir
28 , envLucuConf = lucuConf
29 , envStorage = mkStorage
30 , envSysConf = mkSystemConfig lucuConf