1 module Rakka.Environment
8 import qualified Network.HTTP.Lucu.Config as LC
12 data Environment = Environment {
13 envLocalStateDir :: FilePath
14 , envLucuConf :: LC.Config
15 , envStorage :: Storage
19 setupEnv :: FilePath -> PortNumber -> IO Environment
20 setupEnv lsdir portNum
21 = do let lucuConf = LC.defaultConfig {
22 LC.cnfServerPort = PortNumber portNum
24 storage <- mkStorage -- FIXME
25 return $ Environment {
26 envLocalStateDir = lsdir
27 , envLucuConf = lucuConf
28 , envStorage = storage