import Rakka.Resource.Index
import Rakka.Resource.Object
import Rakka.Resource.Render
+import Subversion
import System.Console.GetOpt
import System.Directory
import System.Environment
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