import Rakka.Environment
import Rakka.Resource.Index
import Rakka.Resource.Object
-import Rakka.Resource.Page
+import Rakka.Resource.Render
+import Subversion
import System.Console.GetOpt
import System.Directory
import System.Environment
import System.Posix.Types
import System.Posix.User
+
data CmdOpt
= OptPortNum PortNumber
| OptLSDir FilePath
main :: IO ()
-main = do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
+main = withSubversion $
+ do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
when (not $ null errors)
$ do mapM_ putStr errors
setUserID uid
env <- setupEnv lsdir portNum
- runHttpd (envLucuConf env) (resTree env) [fallbackPage env]
+ runHttpd (envLucuConf env) (resTree env) [fallbackRender env]
resTree :: Environment -> ResTree