diff options
| author |  Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 14:20:01 +0000 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 14:20:12 +0000 |
| commit | d9031934f19e3dcc267bf4db6c8d6a2af664e746 (patch) | |
| tree | ce628dbc4c0c3aa2c87dd5561166bf8008519a2e /System/Posix/Env.hsc | |
| parent | 891c0bf89b89e3995d2dbc1f6f72b43312b14a44 (diff) | |
Remove tabs from System.Posix.Env.hsc.
Diffstat (limited to 'System/Posix/Env.hsc')
| -rw-r--r-- | 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 |