diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-22 14:59:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-22 14:59:57 -0400 |
| commit | 87cd542f8e090ee9eb9ce223239092049f47af0e (patch) | |
| tree | 8bee9e1a463804aaca546091573365c78a9d3ee1 /Annex | |
| parent | 8aa15f7042cc090d7c2f19c88d4b3892512b6790 (diff) | |
Fix default repository description created by git annex init, which got broken by the relative path changes in the last release.
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 "@" |