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

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
 		}