import Network
import qualified Network.HTTP.Lucu.Config as LC
import Rakka.Storage
+import Rakka.SystemConfig
data Environment = Environment {
- envLocalStateDir :: FilePath
- , envLucuConf :: LC.Config
- , envStorage :: Storage
+ envLocalStateDir :: !FilePath
+ , envLucuConf :: !LC.Config
+ , envStorage :: !Storage
+ , envSysConf :: !SystemConfig
}
= do let lucuConf = LC.defaultConfig {
LC.cnfServerPort = PortNumber portNum
}
- storage <- mkStorage -- FIXME
return $ Environment {
envLocalStateDir = lsdir
, envLucuConf = lucuConf
- , envStorage = storage
- }
\ No newline at end of file
+ , envStorage = mkStorage
+ , envSysConf = mkSystemConfig lucuConf
+ }