From 6df8834b630b7feb443669639a7b222ef38f0608 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 8 Mar 2007 13:44:18 +0000 Subject: fix cut-and-pasto in error message --- System/Posix/Env.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'System/Posix/Env.hsc') diff --git a/System/Posix/Env.hsc b/System/Posix/Env.hsc index f426f98..bd3f1ce 100644 --- a/System/Posix/Env.hsc +++ b/System/Posix/Env.hsc @@ -109,7 +109,7 @@ setEnv :: String -> String -> Bool {-overwrite-} -> IO () setEnv key value ovrwrt = do withCString key $ \ keyP -> withCString value $ \ valueP -> - throwErrnoIfMinus1_ "putenv" $ + throwErrnoIfMinus1_ "setenv" $ c_setenv keyP valueP (fromIntegral (fromEnum ovrwrt)) foreign import ccall unsafe "setenv" -- cgit v1.2.3