typos
This commit is contained in:
parent
763edba5fc
commit
b6be403d3a
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue