This commit is contained in:
Joey Hess 2012-07-31 21:12:58 -04:00
parent e81e8913d9
commit b9afb7785e

View file

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