finished where indentation changes

1 files changed, 35 insertions, 35 deletions

diff --git a/Utility/Directory.hs b/Utility/Directory.hs
index 5ca39b8b5..7cce4a68f 100644
--- a/Utility/Directory.hs
+++ b/Utility/Directory.hs
@@ -44,46 +44,46 @@ dirContentsRecursive' (dir:dirs) = unsafeInterleaveIO $ do
 	(files, dirs') <- collect [] [] =<< catchDefaultIO [] (dirContents dir)
 	files' <- dirContentsRecursive' (dirs' ++ dirs)
 	return (files ++ files')
-	where
-		collect files dirs' [] = return (reverse files, reverse dirs')
-		collect files dirs' (entry:entries)
-			| dirCruft entry = collect files dirs' entries
-			| otherwise = do
-				ifM (doesDirectoryExist entry)
-					( collect files (entry:dirs') entries
-					, collect (entry:files) dirs' entries
-					)			
+  where
+	collect files dirs' [] = return (reverse files, reverse dirs')
+	collect files dirs' (entry:entries)
+		| dirCruft entry = collect files dirs' entries
+		| otherwise = do
+			ifM (doesDirectoryExist entry)
+				( collect files (entry:dirs') entries
+				, collect (entry:files) dirs' entries
+				)			
 
 {- Moves one filename to another.
  - First tries a rename, but falls back to moving across devices if needed. -}
 moveFile :: FilePath -> FilePath -> IO ()
 moveFile src dest = tryIO (rename src dest) >>= onrename
-	where
-		onrename (Right _) = noop
-		onrename (Left e)
-			| isPermissionError e = rethrow
-			| isDoesNotExistError e = rethrow
-			| otherwise = do
-				-- copyFile is likely not as optimised as
-				-- the mv command, so we'll use the latter.
-				-- But, mv will move into a directory if
-				-- dest is one, which is not desired.
-				whenM (isdir dest) rethrow
-				viaTmp mv dest undefined
-			where
-				rethrow = throw e
-				mv tmp _ = do
-					ok <- boolSystem "mv" [Param "-f",
-						Param src, Param tmp]
-					unless ok $ do
-						-- delete any partial
-						_ <- tryIO $ removeFile tmp
-						rethrow
-		isdir f = do
-			r <- tryIO $ getFileStatus f
-			case r of
-				(Left _) -> return False
-				(Right s) -> return $ isDirectory s
+  where
+	onrename (Right _) = noop
+	onrename (Left e)
+		| isPermissionError e = rethrow
+		| isDoesNotExistError e = rethrow
+		| otherwise = do
+			-- copyFile is likely not as optimised as
+			-- the mv command, so we'll use the latter.
+			-- But, mv will move into a directory if
+			-- dest is one, which is not desired.
+			whenM (isdir dest) rethrow
+			viaTmp mv dest undefined
+	  where
+		rethrow = throw e
+		mv tmp _ = do
+			ok <- boolSystem "mv" [Param "-f", Param src, Param tmp]
+			unless ok $ do
+				-- delete any partial
+				_ <- tryIO $ removeFile tmp
+				rethrow
+
+	isdir f = do
+		r <- tryIO $ getFileStatus f
+		case r of
+			(Left _) -> return False
+			(Right s) -> return $ isDirectory s
 
 {- Removes a file, which may or may not exist.
  -