[commit: packages/base] master: Fix Windows build. (2868d61)

[git at git.haskell.org]

Repository : ssh://git at git.haskell.org/base

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2868d61601d0a1948c30bba5495c5fd45cca8dc6/base

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

commit 2868d61601d0a1948c30bba5495c5fd45cca8dc6
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Oct 1 20:15:31 2013 -0500

    Fix Windows build.
    
    In dfb52c3d the default language was set to Haskell2010 - by default,
    GHC is less strict about the layout rule (controlled by
    -XNonincreasingIndentation), but not when we explicitly set the language
    to H2010. It turns out we relied on this behavior in the Windows build.
    
    Thanks to Reid Barton for pointing this out.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

2868d61601d0a1948c30bba5495c5fd45cca8dc6
 GHC/IO/FD.hs |    6 +++---
 System/IO.hs |   16 ++++++++--------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index bcc8df9..2023526 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -279,9 +279,9 @@ getUniqueFileInfo _ dev ino = return (fromIntegral dev, fromIntegral ino)
 #else
 getUniqueFileInfo fd _ _ = do
   with 0 $ \devptr -> do
-  with 0 $ \inoptr -> do
-  c_getUniqueFileInfo fd devptr inoptr
-  liftM2 (,) (peek devptr) (peek inoptr)
+    with 0 $ \inoptr -> do
+      c_getUniqueFileInfo fd devptr inoptr
+      liftM2 (,) (peek devptr) (peek inoptr)
 #endif
 
 #ifdef mingw32_HOST_OS
diff --git a/System/IO.hs b/System/IO.hs
index 4b247f9..004ff54 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -539,14 +539,14 @@ openNewFile filepath binary mode = do
         -- See bug #4968.
         _ | errno == eACCES -> do
           withCString filepath $ \path -> do
-          -- There is a race here: the directory might have been moved or
-          -- deleted between the c_open call and the next line, but there
-          -- doesn't seem to be any direct way to detect that the c_open call
-          -- failed because of an existing directory.
-          exists <- c_fileExists path
-          return $ if exists
-            then FileExists
-            else OpenNewError errno
+            -- There is a race here: the directory might have been moved or
+            -- deleted between the c_open call and the next line, but there
+            -- doesn't seem to be any direct way to detect that the c_open call
+            -- failed because of an existing directory.
+            exists <- c_fileExists path
+            return $ if exists
+              then FileExists
+              else OpenNewError errno
 #endif
         _ -> return (OpenNewError errno)
     else return (NewFileCreated fd)