[commit: packages/unix] master: M-x delete-trailing-whitespace & M-x untabify (86d7989)

git at git.haskell.org git at git.haskell.org
Thu Feb 6 11:34:21 UTC 2014


Repository : ssh://git@git.haskell.org/unix

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/86d798975357c55fd0e5303c83f09844411c3837/unix

>---------------------------------------------------------------

commit 86d798975357c55fd0e5303c83f09844411c3837
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Thu Feb 6 12:33:55 2014 +0100

    M-x delete-trailing-whitespace & M-x untabify
    
    Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>


>---------------------------------------------------------------

86d798975357c55fd0e5303c83f09844411c3837
 System/Posix/Files.hsc |   24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc
index 704ef8a..49c9bc1 100644
--- a/System/Posix/Files.hsc
+++ b/System/Posix/Files.hsc
@@ -138,22 +138,22 @@ fileExist name =
   withFilePath name $ \s -> do
     r <- c_access s (#const F_OK)
     if (r == 0)
-	then return True
-	else do err <- getErrno
-	        if (err == eNOENT)
-		   then return False
-		   else throwErrnoPath "fileExist" name
+        then return True
+        else do err <- getErrno
+                if (err == eNOENT)
+                   then return False
+                   else throwErrnoPath "fileExist" name
 
 access :: FilePath -> CMode -> IO Bool
 access name flags =
   withFilePath name $ \s -> do
     r <- c_access s (fromIntegral flags)
     if (r == 0)
-	then return True
-	else do err <- getErrno
-	        if (err == eACCES || err == eROFS || err == eTXTBSY)
-		   then return False
-		   else throwErrnoPath "fileAccess" name
+        then return True
+        else do err <- getErrno
+                if (err == eACCES || err == eROFS || err == eTXTBSY)
+                   then return False
+                   else throwErrnoPath "fileAccess" name
 
 
 -- | @getFileStatus path@ calls gets the @FileStatus@ information (user ID,
@@ -269,7 +269,7 @@ readSymbolicLink file =
   allocaArray0 (#const PATH_MAX) $ \buf -> do
     withFilePath file $ \s -> do
       len <- throwErrnoPathIfMinus1 "readSymbolicLink" file $
-	c_readlink s buf (#const PATH_MAX)
+        c_readlink s buf (#const PATH_MAX)
       peekFilePathLen (buf,fromIntegral len)
 
 foreign import ccall unsafe "readlink"
@@ -316,7 +316,7 @@ setSymbolicLinkOwnerAndGroup :: FilePath -> UserID -> GroupID -> IO ()
 setSymbolicLinkOwnerAndGroup name uid gid = do
   withFilePath name $ \s ->
     throwErrnoPathIfMinus1_ "setSymbolicLinkOwnerAndGroup" name
-	(c_lchown s uid gid)
+        (c_lchown s uid gid)
 
 foreign import ccall unsafe "lchown"
   c_lchown :: CString -> CUid -> CGid -> IO CInt



More information about the ghc-commits mailing list