X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FEnvironment.hs;h=6ae6f11c708a61f7c6007326382394599d5ae5ff;hp=b554df8215e4f7ecf23ba93a073031e79f73c56b;hb=0b1235464affca4fb349c713278d2e37fd8e9584;hpb=3c5211253dc61c31196a47486c538b64c32d8c5e

diff --git a/Rakka/Environment.hs b/Rakka/Environment.hs
index b554df8..6ae6f11 100644
--- a/Rakka/Environment.hs
+++ b/Rakka/Environment.hs
@@ -20,6 +20,9 @@ import           Rakka.Wiki.Interpreter.Base
 import           Subversion.Repository
 import           System.Directory
 import           System.FilePath
+import           System.Log.Logger
+
+logger = "Rakka.Environment"
 
 
 data Environment = Environment {
@@ -45,9 +48,11 @@ setupEnv lsdir portNum
          
          reposExist  <- doesDirectoryExist reposPath
          repos       <- if reposExist then
-                            openRepository reposPath
+                            do debugM logger ("Found a subversion repository on " ++ reposPath)
+                               openRepository reposPath
                         else
-                            createRepository reposPath [] []
+                            do noticeM logger ("Creating a subversion repository on " ++ reposPath)
+                               createRepository reposPath [] []
          sysConf     <- mkSystemConfig lucuConf repos
          interpTable <- mkInterpTable