random hlint (to give the autobuilder something new to build)

Annex/Content.hs

@@ -243,10 +243,9 @@ finishGetViaTmp check key action = do
 			moveAnnex key tmpfile
 			logStatus key InfoPresent
 			return True
-		, do
+		-- the tmp file is left behind, in case caller wants
-			-- the tmp file is left behind, in case caller wants
+		-- to resume its transfer
-			-- to resume its transfer
+		, return False
-			return False
 		)
 
 prepTmp :: Key -> Annex FilePath

Annex/Content/Direct.hs

@@ -66,7 +66,7 @@ changeAssociatedFiles key transform = do
 	mapping <- calcRepo $ gitAnnexMapping key
 	files <- associatedFilesRelative key
 	let files' = transform files
-	when (files /= files') $ do
+	when (files /= files') $
 		modifyContent mapping $
 			liftIO $ viaTmp writeFileAnyEncoding mapping $
 				unlines files'

Annex/Direct.hs

@@ -184,7 +184,7 @@ mergeDirectCleanup d oldsha newsha = do
 			tryAnnex . maybe (araw f item) (\k -> void $ a k f)
 				=<< catKey (getsha item) (getmode item)
 
-	moveout k f = removeDirect k f
+	moveout = removeDirect
 
 	{- Files deleted by the merge are removed from the work tree.
 	 - Empty work tree directories are removed, per git behavior. -}

Annex/FileMatcher.hs

@@ -43,7 +43,7 @@ checkMatcher matcher mkey afile notpresent def
 fileMatchInfo :: FilePath -> Annex MatchInfo
 fileMatchInfo file = do
 	matchfile <- getTopFilePath <$> inRepo (toTopFilePath file)
-	return $ MatchingFile $ FileInfo
+	return $ MatchingFile FileInfo
 		{ matchFile = matchfile
 		, relFile = file
 		}

Annex/Init.hs

@@ -70,11 +70,10 @@ initialize mdescription = do
 		( do
 			enableDirectMode
 			setDirect True
-		, do
+		-- Handle case where this repo was cloned from a
-			-- Handle case where this repo was cloned from a
+		-- direct mode repo
-			-- direct mode repo.
+		, unlessM isBare
-			unlessM isBare
+			switchHEADBack
-				switchHEADBack
 		)
 	createInodeSentinalFile
 	u <- getUUID
@@ -227,7 +226,7 @@ fixBadBare = whenM checkBadBare $ do
 		logStatus k InfoPresent
 	let dotgit = d </> ".git"
 	liftIO $ removeDirectoryRecursive dotgit
-		`catchIO` (const $ renameDirectory dotgit (d </> "removeme"))
+		`catchIO` const (renameDirectory dotgit (d </> "removeme"))
 
 {- A repostory with the problem won't know it's a bare repository, but will
  - have no pre-commit hook (which is not set up in a bare repository),

Annex/Ssh.hs

@@ -76,7 +76,7 @@ bestSocketPath abssocketfile = do
   	-- ssh appends a 16 char extension to the socket when setting it
 	-- up, which needs to be taken into account when checking
 	-- that a valid socket was constructed.
-  	sshgarbage = take (1+16) $ repeat 'X'
+  	sshgarbage = replicate (1+16) 'X'
 
 sshConnectionCachingParams :: FilePath -> [CommandParam]
 sshConnectionCachingParams socketfile =