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
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 :: [RepoVersion]
supportedVersions = map RepoVersion [8, 9] supportedVersions = map RepoVersion [8, 9]
upgradableVersions :: [RepoVersion] upgradeableVersions :: [RepoVersion]
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
upgradableVersions = map RepoVersion [0..8] upgradeableVersions = map RepoVersion [0..8]
#else #else
upgradableVersions = map RepoVersion [2..8] upgradeableVersions = map RepoVersion [2..8]
#endif #endif
autoUpgradeableVersions :: M.Map RepoVersion RepoVersion autoUpgradeableVersions :: M.Map RepoVersion RepoVersion

2
Command/Version.hs
View file

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

2
Upgrade.hs
View file

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