s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects 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 *.swp
*.keter *.keter
*~ *~
arena/t-* arena/t*
arena/r-* arena/r*

2
Handler/Shared.hs
View File

@ -127,7 +127,7 @@ cloneRepo url branch chan = do
return Nothing return Nothing
getRepoDir :: Key Repo -> FilePath getRepoDir :: Key Repo -> FilePath
getRepoDir repoId = arena </> repoIdAsString getRepoDir repoId = arena </> ("r" ++ repoIdAsString)
where repoIdAsString = show $ fromSqlKey repoId where repoIdAsString = show $ fromSqlKey repoId
checkRepoUrl :: Text -> Bool checkRepoUrl :: Text -> Bool