- = do let lucuConf = LC.defaultConfig {
- LC.cnfServerPort = PortNumber portNum
- }
- storage <- mkStorage -- FIXME
+ = do let lucuConf = LC.defaultConfig {
+ LC.cnfServerPort = PortNumber portNum
+ }
+ reposPath = lsdir `combine` "repos"
+ storage = mkStorage
+
+ reposExist <- doesDirectoryExist reposPath
+ repos <- if reposExist then
+ openRepository reposPath
+ else
+ createRepository reposPath [] []
+ sysConf <- mkSystemConfig lucuConf repos
+ interpTable <- mkInterpTable
+