fix spelling of upgradeable

diff --git a/Annex/Version.hs b/Annex/Version.hs
index 5e7ba85c7c8452299470ca062ffdf095a6404a4e..27a4cb832b69097526aa6fba84cad43a47bb24b1 100644 (file)
--- a/Annex/Version.hs
+++ b/Annex/Version.hs
@@ -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

diff --git a/Command/Version.hs b/Command/Version.hs
index 1ea8d190a3540fb5f10f6e059a9d2aa2be78c740..71cfe141e76c7fe49d2c0de8fa0932f83d488bd1 100644 (file)
--- a/Command/Version.hs
+++ b/Command/Version.hs
@@ -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
 

diff --git a/Upgrade.hs b/Upgrade.hs
index 620a9ff4bd69cef918f70007c7e4f007284dd393..d87a7b030288d658a1d81951e3e8e0d231910918 100644 (file)
--- a/Upgrade.hs
+++ b/Upgrade.hs
@@ -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."