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:
parent
d1ac9904b8
commit
f50b6779f9
2 changed files with 3 additions and 1 deletions
|
@ -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 "@"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue