From d9031934f19e3dcc267bf4db6c8d6a2af664e746 Mon Sep 17 00:00:00 2001 From: Paolo Capriotti Date: Fri, 9 Mar 2012 14:20:01 +0000 Subject: Remove tabs from System.Posix.Env.hsc. --- System/Posix/Env.hsc | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'System/Posix/Env.hsc') 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 -- cgit v1.2.3