import Network
import qualified Network.HTTP.Lucu.Config as LC
+import Rakka.Storage
data Environment = Environment {
envLocalStateDir :: FilePath
, envLucuConf :: LC.Config
+ , envStorage :: Storage
}
= 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