X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;fp=System%2FDirectory.hs;h=34989878a83e4bbef2040bdd5c3f02850236904e;hb=ce3bf8c2148873b5f332865fe02450169cdeb68b;hp=30573285e6acfc0a000ed35cc987152307b322cb;hpb=36e4cefebd16a9253ac9651d043522045ec3f63d;p=haskell-directory.git

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 </> "*"))