This commit is contained in:
Joey Hess 2014-10-16 15:37:12 -04:00
parent 763edba5fc
commit b6be403d3a

View file

@ -48,7 +48,7 @@ setEnv :: String -> String -> Bool -> IO ()
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
setEnv var val overwrite = PE.setEnv var val overwrite setEnv var val overwrite = PE.setEnv var val overwrite
#else #else
setEnv var val True = System.Setenv.setEnv var val setEnv var val True = System.SetEnv.setEnv var val
setEnv var val False = do setEnv var val False = do
r <- getEnv var r <- getEnv var
case r of case r of
@ -60,7 +60,7 @@ unsetEnv :: String -> IO ()
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
unsetEnv = PE.unsetEnv unsetEnv = PE.unsetEnv
#else #else
unsetEnv = System.Setenv.unsetEnv unsetEnv = System.SetEnv.unsetEnv
#endif #endif
{- Adds the environment variable to the input environment. If already {- Adds the environment variable to the input environment. If already