Fix default repository description created by git annex init, which got broken by the relative path changes in the last release.

This commit is contained in:
Joey Hess 2015-01-22 14:59:57 -04:00
parent d1ac9904b8
commit f50b6779f9
2 changed files with 3 additions and 1 deletions

View file

@ -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 "@"