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