From ce3bf8c2148873b5f332865fe02450169cdeb68b Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Mon, 23 Nov 2009 09:05:57 +0000
Subject: [PATCH] Use H'98-compliant indentation in do-block.

---
 System/Directory.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/System/Directory.hs b/System/Directory.hs
index 3057328..3498987 100644
--- 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 </> "*"))
-- 
1.7.10.4