mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix spelling of upgradeable

Browse source
This commit is contained in:
Joey Hess 2022-01-19 12:14:50 -04:00
parent 7cb5d4a6bf
commit 4f7b8ce09d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Annex/Version.hs
View file

@ -27,11 +27,11 @@ latestVersion = RepoVersion 9
supportedVersions :: [RepoVersion]
supportedVersions = map RepoVersion [8, 9]
upgradableVersions :: [RepoVersion]
upgradeableVersions :: [RepoVersion]
#ifndef mingw32_HOST_OS
upgradableVersions = map RepoVersion [0..8]
upgradeableVersions = map RepoVersion [0..8]
#else
upgradableVersions = map RepoVersion [2..8]
upgradeableVersions = map RepoVersion [2..8]
#endif
autoUpgradeableVersions :: M.Map RepoVersion RepoVersion

2
Command/Version.hs
View file

@ -66,7 +66,7 @@ showPackageVersion = do
vinfo "supported repository versions" $
verlist supportedVersions
vinfo "upgrade supported from repository versions" $
verlist upgradableVersions
verlist upgradeableVersions
where
verlist = unwords . map showRepoVersion

2
Upgrade.hs
View file

@ -38,7 +38,7 @@ needsUpgrade v
| v `elem` supportedVersions = ok
| otherwise = case M.lookup v autoUpgradeableVersions of
Nothing
| v `elem` upgradableVersions ->
| v `elem` upgradeableVersions ->
err "Upgrade this repository: git-annex upgrade"
| otherwise ->
err "Upgrade git-annex."