diff options
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Init.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Init.hs b/Annex/Init.hs index 6947ea119..24c5e18b1 100644 --- a/Annex/Init.hs +++ b/Annex/Init.hs @@ -44,7 +44,7 @@ import Annex.Perms genDescription :: Maybe String -> Annex String genDescription (Just d) = return d genDescription Nothing = do - reldir <- liftIO . relHome =<< fromRepo Git.repoPath + reldir <- liftIO . relHome =<< liftIO . absPath =<< fromRepo Git.repoPath hostname <- fromMaybe "" <$> liftIO getHostname #ifndef mingw32_HOST_OS let at = if null hostname then "" else "@" |