diff options
author | ross <unknown> | 2003-05-23 16:36:48 +0000 |
---|---|---|
committer | ross <unknown> | 2003-05-23 16:36:48 +0000 |
commit | d3679078e480d42907e4e01c8d24524b3a8bcd5b (patch) | |
tree | 017865e0ca847260176790d8fe84a8c492e323d0 /System | |
parent | b96d8bcac68ce335a8d8cf667d06c16f5613cde4 (diff) |
[project @ 2003-05-23 16:36:48 by ross]
fix type error
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Env.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/System/Posix/Env.hsc b/System/Posix/Env.hsc index 132d418..1c85805 100644 --- a/System/Posix/Env.hsc +++ b/System/Posix/Env.hsc @@ -109,7 +109,8 @@ setEnv :: String -> String -> Bool {-overwrite-} -> IO () setEnv key value ovrwrt = do withCString key $ \ keyP -> withCString value $ \ valueP -> - throwErrnoIfMinus1_ "putenv" $ c_setenv keyP valueP (fromEnum ovrwrt) + throwErrnoIfMinus1_ "putenv" $ + c_setenv keyP valueP (fromIntegral (fromEnum ovrwrt)) foreign import ccall unsafe "setenv" c_setenv :: CString -> CString -> CInt -> IO CInt |