diff options
Diffstat (limited to 'Annex/Environment.hs')
| -rw-r--r-- | Annex/Environment.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Environment.hs b/Annex/Environment.hs index bc97c17b7..b1b5e96e9 100644 --- a/Annex/Environment.hs +++ b/Annex/Environment.hs @@ -45,7 +45,7 @@ checkEnvironmentIO = ensureEnv "GIT_COMMITTER_NAME" username where #ifndef __ANDROID__ - -- existing environment is not overwritten + -- existing environment is not overwritten ensureEnv var val = void $ setEnv var val False #else -- Environment setting is broken on Android, so this is dealt with @@ -59,7 +59,7 @@ checkEnvironmentIO = ensureCommit :: Annex a -> Annex a ensureCommit a = either retry return =<< tryNonAsync a where - retry _ = do + retry _ = do name <- liftIO myUserName setConfig (ConfigKey "user.name") name setConfig (ConfigKey "user.email") name |