diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-31 21:12:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-31 21:12:58 -0400 |
| commit | b9afb7785e84ba03cb44a9b6962dbd01feaa4aae (patch) | |
| tree | 24b782f3a629a7aa924c2ff724159d64543804bb /Assistant/WebApp/Configurators.hs | |
| parent | e81e8913d9c663cbe680224e6237433e7508e7d3 (diff) | |
typo
Diffstat (limited to 'Assistant/WebApp/Configurators.hs')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index d646e6fb7..69108e46e 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -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 |