diff options
Diffstat (limited to 'Annex/Branch.hs')
| -rw-r--r-- | Annex/Branch.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 9a89a65c3..2cba28901 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -294,8 +294,7 @@ withIndex' bootstrapping a = do - Use getEnv to get some key environment variables that - git expects to have. -} let keyenv = words "USER PATH GIT_EXEC_PATH HOSTNAME HOME" - let getEnvPair k = maybe Nothing (\v -> Just (k, v)) <$> - catchMaybeIO (getEnv k) + let getEnvPair k = maybe Nothing (\v -> Just (k, v)) <$> getEnv k e <- liftIO $ catMaybes <$> forM keyenv getEnvPair #else e <- liftIO getEnvironment |