remove unused contentFile = Nothing

Annex/FileMatcher.hs

@@ -89,7 +89,7 @@ fileMatchInfo file mkey = do
 	matchfile <- getTopFilePath <$> inRepo (toTopFilePath file)
 	return $ MatchingFile FileInfo
 		{ matchFile = matchfile
-		, contentFile = Just file
+		, contentFile = file
 		, matchKey = mkey
 		}
 

Annex/Import.hs

@@ -568,7 +568,7 @@ importKeys remote importtreeconfig importcontent thirdpartypopulated importablec
 		mkkey tmpfile = do
 			let mi = MatchingFile FileInfo
 				{ matchFile = f
-				, contentFile = Just tmpfile
+				, contentFile = tmpfile
 				, matchKey = Nothing
 				}
 			islargefile <- checkMatcher' matcher mi mempty

Annex/Ingest.hs

@@ -383,7 +383,7 @@ addAnnexedFile ci matcher file key mtmp = ifM (addUnlocked matcher mi (isJust mt
 	af = AssociatedFile (Just file)
 	mi = case mtmp of
 		Just tmp -> MatchingFile $ FileInfo
-			{ contentFile = Just tmp
+			{ contentFile = tmp
 			, matchFile = file
 			, matchKey = Just key
 			}