Use H'98-compliant indentation in do-block.

diff --git a/System/Directory.hs b/System/Directory.hs
index 3057328..3498987 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -784,8 +784,8 @@ getDirectoryContents path =
   loop dirp = do
      e <- Posix.readDirStream dirp
      if null e then return [] else do
-     es <- loop dirp
-     return (e:es)
+       es <- loop dirp
+       return (e:es)
 #else
   bracket
      (Win32.findFirstFile (path </> "*"))