X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Main.hs;h=44855689c7c26baefd9f2d55f73bbdc94a6040f6;hp=1b441ee2725d5b2678e1b944722746f371b9d837;hb=3c5211253dc61c31196a47486c538b64c32d8c5e;hpb=b3c3f333cd48bc74eb33f0f21d56a9d1bc65e0ea

diff --git a/Main.hs b/Main.hs
index 1b441ee..4485568 100644
--- a/Main.hs
+++ b/Main.hs
@@ -7,6 +7,7 @@ import           Rakka.Environment
 import           Rakka.Resource.Index
 import           Rakka.Resource.Object
 import           Rakka.Resource.Render
+import           Subversion
 import           System.Console.GetOpt
 import           System.Directory
 import           System.Environment
@@ -69,7 +70,8 @@ printUsage = do putStrLn "Usage:"
 
 
 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