Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d9031934f19e3dcc267bf4db6c8d6a2af664e746 >--------------------------------------------------------------- commit d9031934f19e3dcc267bf4db6c8d6a2af664e746 Author: Paolo Capriotti <[email protected]> Date: Fri Mar 9 14:20:01 2012 +0000 Remove tabs from System.Posix.Env.hsc. >--------------------------------------------------------------- System/Posix/Env.hsc | 22 +++++++++++----------- 1 files changed, 11 insertions(+), 11 deletions(-) diff --git a/System/Posix/Env.hsc b/System/Posix/Env.hsc index 5f3cbd1..1a72a37 100644 --- a/System/Posix/Env.hsc +++ b/System/Posix/Env.hsc @@ -17,25 +17,25 @@ ----------------------------------------------------------------------------- module System.Posix.Env ( - getEnv - , getEnvDefault - , getEnvironmentPrim - , getEnvironment - , putEnv - , setEnv - , unsetEnv + getEnv + , getEnvDefault + , getEnvironmentPrim + , getEnvironment + , putEnv + , setEnv + , unsetEnv ) where #include "HsUnix.h" -import Foreign.C.Error ( throwErrnoIfMinus1_ ) +import Foreign.C.Error (throwErrnoIfMinus1_) import Foreign.C.Types import Foreign.C.String import Foreign.Marshal.Array import Foreign.Ptr import Foreign.Storable -import Control.Monad ( liftM ) -import Data.Maybe ( fromMaybe ) +import Control.Monad (liftM) +import Data.Maybe (fromMaybe) #if __GLASGOW_HASKELL__ > 700 import System.Posix.Internals (withFilePath, peekFilePath) #elif __GLASGOW_HASKELL__ > 611 @@ -140,7 +140,7 @@ setEnv key value ovrwrt = do withFilePath key $ \ keyP -> withFilePath value $ \ valueP -> throwErrnoIfMinus1_ "setenv" $ - c_setenv keyP valueP (fromIntegral (fromEnum ovrwrt)) + c_setenv keyP valueP (fromIntegral (fromEnum ovrwrt)) foreign import ccall unsafe "setenv" c_setenv :: CString -> CString -> CInt -> IO CInt _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
