From ed79596b758935a3f22bf6803bc082a6bbe10f58 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 21 Apr 2012 23:32:33 -0400
Subject: noop

---
 Git/Construct.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Git/Construct.hs')

diff --git a/Git/Construct.hs b/Git/Construct.hs
index 49905f818..3f3ea9747 100644
--- a/Git/Construct.hs
+++ b/Git/Construct.hs
@@ -48,7 +48,7 @@ import qualified Git.Url as Url
 fromCurrent :: IO Repo
 fromCurrent = do
 	r <- maybe fromCwd fromPath =<< getEnv "GIT_DIR"
-	maybe (return ()) changeWorkingDirectory =<< getEnv "GIT_WORK_TREE"
+	maybe noop changeWorkingDirectory =<< getEnv "GIT_WORK_TREE"
 	unsetEnv "GIT_DIR"
 	unsetEnv "GIT_WORK_TREE"
 	return r
-- 
cgit v1.2.3