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