From b148cc37fc8f3e66689754dfe4028350da8eb0ed Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@ceti.pl>
Date: Fri, 4 Sep 2015 10:53:23 +0200
Subject: [PATCH] fixed directory names

---
 .gitignore        | 4 ++--
 Handler/Shared.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/.gitignore b/.gitignore
index a1e6b00..80c4752 100644
--- a/.gitignore
+++ b/.gitignore
@@ -18,5 +18,5 @@ cabal.sandbox.config
 *.swp
 *.keter
 *~
-arena/t-*
-arena/r-*
+arena/t*
+arena/r*
diff --git a/Handler/Shared.hs b/Handler/Shared.hs
index 438b84a..b468198 100644
--- a/Handler/Shared.hs
+++ b/Handler/Shared.hs
@@ -127,7 +127,7 @@ cloneRepo url branch chan = do
         return Nothing
 
 getRepoDir :: Key Repo -> FilePath
-getRepoDir repoId = arena </> repoIdAsString
+getRepoDir repoId = arena </> ("r" ++ repoIdAsString)
                     where repoIdAsString = show $ fromSqlKey repoId
 
 checkRepoUrl :: Text -> Bool