From 87cd542f8e090ee9eb9ce223239092049f47af0e Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 22 Jan 2015 14:59:57 -0400
Subject: Fix default repository description created by git annex init, which
 got broken by the relative path changes in the last release.

---
 Annex/Init.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Annex')

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 "@"
-- 
cgit v1.2.3