where indenting

1 files changed, 7 insertions, 7 deletions

diff --git a/Upgrade/V0.hs b/Upgrade/V0.hs
index 8f3af337e..00a08cb45 100644
--- a/Upgrade/V0.hs
+++ b/Upgrade/V0.hs
@@ -40,10 +40,10 @@ getKeysPresent0 dir = ifM (liftIO $ doesDirectoryExist dir)
 		<$> (filterM present =<< getDirectoryContents dir)
 	, return []
 	)
-	where
-		present d = do
-			result <- tryIO $
-				getFileStatus $ dir ++ "/" ++ takeFileName d
-			case result of
-				Right s -> return $ isRegularFile s
-				Left _ -> return False
+  where
+	present d = do
+		result <- tryIO $
+			getFileStatus $ dir ++ "/" ++ takeFileName d
+		case result of
+			Right s -> return $ isRegularFile s
+			Left _ -> return False