diff options
Diffstat (limited to 'Assistant/WebApp/Configurators.hs')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index 01245b4bc..1c7ea7cf4 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -111,8 +111,10 @@ defaultRepositoryPath firstrun = do cwd <- liftIO $ getCurrentDirectory home <- myHomeDir if home == cwd && firstrun - then ifM (doesDirectoryExist $ home </> "Desktop") - (return "~/Desktop/annex", return "~/annex") + then do + desktop <- userDesktopDir + ifM (doesDirectoryExist desktop) + (relHome (desktop </> "annex"), return "~/annex") else return cwd addRepositoryForm :: Form RepositoryPath |