mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

typo

Browse source
This commit is contained in:
Joey Hess 2012-07-31 21:12:58 -04:00
parent e81e8913d9
commit b9afb7785e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators.hs
View file

@ -106,7 +106,7 @@ defaultRepositoryPath = do
home <- myHomeDir home <- myHomeDir
if home == cwd if home == cwd
then ifM (doesDirectoryExist $ home </> "Desktop") then ifM (doesDirectoryExist $ home </> "Desktop")
(return "~/Desktop/annex", return "~") (return "~/Desktop/annex", return "~/annex")
else return cwd else return cwd
addRepositoryForm :: Form RepositoryPath addRepositoryForm :: Form RepositoryPath