filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

fixed directory names

Browse Source
This commit is contained in:
Filip Gralinski 2015-09-04 10:53:23 +02:00
parent 3dfec2d6f4
commit b148cc37fc
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored
View File

@ -18,5 +18,5 @@ cabal.sandbox.config
*.swp
*.keter
*~
arena/t-*
arena/r-*
arena/t*
arena/r*

2
Handler/Shared.hs
View File

@ -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