From 618af8b6772d25ab27336d240ecddae7ae207561 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 11 May 2013 18:23:41 -0400 Subject: clean up from windows porting --- Git/CurrentRepo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Git/CurrentRepo.hs') diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs index 4b8c1fca8..769956aee 100755 --- a/Git/CurrentRepo.hs +++ b/Git/CurrentRepo.hs @@ -11,13 +11,13 @@ module Git.CurrentRepo where #ifndef __WINDOWS__ import System.Posix.Directory (changeWorkingDirectory) -import System.Posix.Env (getEnv, unsetEnv) #endif import Common import Git.Types import Git.Construct import qualified Git.Config +import Utility.Env {- Gets the current git repository. - @@ -51,7 +51,7 @@ get = do v <- getEnv s case v of Just d -> do - unsetEnv s + void $ unsetEnv s Just <$> absPath d Nothing -> return Nothing #else -- cgit v1.2.3