- = do let lucuConf = LC.defaultConfig {
- LC.cnfServerPort = PortNumber portNum
- }
- storage <- mkStorage -- FIXME
+ = do let lucuConf = LC.defaultConfig {
+ LC.cnfServerPort = PortNumber portNum
+ }
+ reposPath = lsdir </> "repos"
+ interpTable = mkInterpTable
+
+ reposExist <- doesDirectoryExist reposPath
+ repos <- if reposExist then
+ do debugM logger ("Found a subversion repository on " ++ reposPath)
+ openRepository reposPath
+ else
+ do noticeM logger ("Creating a subversion repository on " ++ reposPath)
+ createRepository reposPath [] []
+ sysConf <- mkSystemConfig lucuConf repos
+ storage <- mkStorage lsdir repos (makeDraft' interpTable)
+ authDB <- mkAuthDB lsdir
+