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