make GIT_DIR, GIT_WORK_TREE absolute

GIT_DIR is set to something relative, like ".git" in the pre-commit hook.
But internally all the directories are assumed to be absolute.

1 files changed, 6 insertions, 4 deletions

diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs
index 4325f452c..746904caf 100644
--- a/Git/CurrentRepo.hs
+++ b/Git/CurrentRepo.hs
@@ -29,20 +29,22 @@ import qualified Git.Config
  -}
 get :: IO Repo
 get = do
-	gd <- takeenv "GIT_DIR"
+	gd <- pathenv "GIT_DIR"
 	r <- configure gd =<< maybe fromCwd fromPath gd
-	wt <- maybe (worktree $ location r) Just <$> takeenv "GIT_WORK_TREE"
+	wt <- maybe (worktree $ location r) Just <$> pathenv "GIT_WORK_TREE"
 	case wt of
 		Nothing -> return r
 		Just d -> do
 			changeWorkingDirectory d
 			return $ addworktree wt r
 	where
-		takeenv s = do
+		pathenv s = do
 			v <- getEnv s
 			when (isJust v) $
 				unsetEnv s
-			return v
+			case v of
+				Nothing -> return Nothing
+				Just d -> Just <$> absPath d
 		configure Nothing r = Git.Config.read r
 		configure (Just d) r = do
 			r' <- Git.Config.read r