finished where indentation changes

1 files changed, 30 insertions, 30 deletions

diff --git a/Annex/Perms.hs b/Annex/Perms.hs
index c54908b43..13deb20bd 100644
--- a/Annex/Perms.hs
+++ b/Annex/Perms.hs
@@ -21,11 +21,11 @@ import System.Posix.Types
 
 withShared :: (SharedRepository -> Annex a) -> Annex a
 withShared a = maybe startup a =<< Annex.getState Annex.shared
-	where
-		startup = do
-			shared <- fromRepo getSharedRepository
-			Annex.changeState $ \s -> s { Annex.shared = Just shared }
-			a shared
+  where
+	startup = do
+		shared <- fromRepo getSharedRepository
+		Annex.changeState $ \s -> s { Annex.shared = Just shared }
+		a shared
 
 {- Sets appropriate file mode for a file or directory in the annex,
  - other than the content files and content directory. Normally,
@@ -33,38 +33,38 @@ withShared a = maybe startup a =<< Annex.getState Annex.shared
  - allow the group to write, etc. -}
 setAnnexPerm :: FilePath -> Annex ()
 setAnnexPerm file = withShared $ liftIO . go
-	where
-		go GroupShared = groupWriteRead file
-		go AllShared = modifyFileMode file $ addModes $
-			[ ownerWriteMode, groupWriteMode ] ++ readModes
-		go _ = noop
+  where
+	go GroupShared = groupWriteRead file
+	go AllShared = modifyFileMode file $ addModes $
+		[ ownerWriteMode, groupWriteMode ] ++ readModes
+	go _ = noop
 
 {- Gets the appropriate mode to use for creating a file in the annex
  - (other than content files, which are locked down more). -}
 annexFileMode :: Annex FileMode
 annexFileMode = withShared $ return . go
-	where
-		go GroupShared = sharedmode
-		go AllShared = combineModes (sharedmode:readModes)
-		go _ = stdFileMode
-		sharedmode = combineModes
-			[ ownerWriteMode, groupWriteMode
-			, ownerReadMode, groupReadMode
-			]
+  where
+	go GroupShared = sharedmode
+	go AllShared = combineModes (sharedmode:readModes)
+	go _ = stdFileMode
+	sharedmode = combineModes
+		[ ownerWriteMode, groupWriteMode
+		, ownerReadMode, groupReadMode
+		]
 
 {- Creates a directory inside the gitAnnexDir, including any parent
  - directories. Makes directories with appropriate permissions. -}
 createAnnexDirectory :: FilePath -> Annex ()
 createAnnexDirectory dir = traverse dir [] =<< top
-	where
-		top = parentDir <$> fromRepo gitAnnexDir
-		traverse d below stop
-			| d `equalFilePath` stop = done
-			| otherwise = ifM (liftIO $ doesDirectoryExist d)
-				( done
-				, traverse (parentDir d) (d:below) stop
-				)
-			where
-				done = forM_ below $ \p -> do
-					liftIO $ createDirectory p
-					setAnnexPerm p
+  where
+	top = parentDir <$> fromRepo gitAnnexDir
+	traverse d below stop
+		| d `equalFilePath` stop = done
+		| otherwise = ifM (liftIO $ doesDirectoryExist d)
+			( done
+			, traverse (parentDir d) (d:below) stop
+			)
+	  where
+		done = forM_ below $ \p -> do
+			liftIO $ createDirectory p
+			setAnnexPerm p