diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
commit | 618af8b6772d25ab27336d240ecddae7ae207561 (patch) | |
tree | 9e48ea32c7cbe11603ab599b5e0616457cd4de4e /Creds.hs | |
parent | db56fab07ddd6910b1dc08f4fa242c267c469eb5 (diff) |
clean up from windows porting
Diffstat (limited to 'Creds.hs')
-rwxr-xr-x | Creds.hs | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -15,11 +15,9 @@ import Utility.FileMode import Crypto import Types.Remote (RemoteConfig, RemoteConfigKey) import Remote.Helper.Encryptable (remoteCipher, embedCreds) +import Utility.Env (setEnv) import System.Environment -#ifndef mingw32_HOST_OS -import System.Posix.Env (setEnv) -#endif import qualified Data.ByteString.Lazy.Char8 as L import qualified Data.Map as M import Utility.Base64 @@ -115,7 +113,7 @@ setEnvCredPair (l, p) storage = do set penv p where (uenv, penv) = credPairEnvironment storage - set var val = setEnv var val True + set var val = void $ setEnv var val True #else setEnvCredPair _ _ = error "setEnvCredPair TODO" #endif |