fix overindent

1 files changed, 9 insertions, 9 deletions

diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 0136175c7..fb8290281 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -248,16 +248,16 @@ verifyLocationLog' key desc present u updatestatus = do
 	uuids <- loggedLocations key
 	case (present, u `elem` uuids) of
 		(True, False) -> do
-				fix InfoPresent
-				-- There is no data loss, so do not fail.
-				return True
+			fix InfoPresent
+			-- There is no data loss, so do not fail.
+			return True
 		(False, True) -> do
-				fix InfoMissing
-				warning $
-					"** Based on the location log, " ++ desc
-					++ "\n** was expected to be present, " ++
-					"but its content is missing."
-				return False
+			fix InfoMissing
+			warning $
+				"** Based on the location log, " ++ desc
+				++ "\n** was expected to be present, " ++
+				"but its content is missing."
+			return False
 		_ -> return True
   where
 	fix s = do