avoid warning

This commit is contained in:
Joey Hess 2021-06-15 11:11:55 -04:00
parent 77517ab506
commit 0b91afb57d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -229,7 +229,7 @@ finishIngestUnlocked' key source restage lar = do
-}
populateUnlockedFiles :: Key -> KeySource -> Restage -> Maybe LinkAnnexResult -> Annex ()
populateUnlockedFiles _ _ _ (Just LinkAnnexNoop) = return ()
populateUnlockedFiles key source restage lar = do
populateUnlockedFiles key source restage _ = do
obj <- calcRepo (gitAnnexLocation key)
g <- Annex.gitRepo
ingestedf <- flip fromTopFilePath g