fix build

This commit is contained in:
Joey Hess 2019-09-01 16:42:49 -04:00
parent f845195354
commit 47a2a9b621
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -41,8 +41,8 @@ needsUpgrade v
Just newv -> ifM (annexAutoUpgradeRepository <$> Annex.getGitConfig) Just newv -> ifM (annexAutoUpgradeRepository <$> Annex.getGitConfig)
( tryNonAsync (upgrade True newv) >>= \case ( tryNonAsync (upgrade True newv) >>= \case
Right True -> ok Right True -> ok
Right False -> "Automatic upgrade failed!" Right False -> err "Automatic upgrade failed!"
Left err -> "Automatic upgrade exception! " ++ show err Left ex -> err $ "Automatic upgrade exception! " ++ show ex
, err "Automatic upgrade is disabled by annex.autoupgraderepository configuration. To upgrade this repository: git-annex upgrade" , err "Automatic upgrade is disabled by annex.autoupgraderepository configuration. To upgrade this repository: git-annex upgrade"
) )
where where