From 4f7b8ce09dfda65547f1d49e8e29d2773f5672b6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 19 Jan 2022 12:14:50 -0400
Subject: [PATCH] fix spelling of upgradeable

---
 Annex/Version.hs   | 6 +++---
 Command/Version.hs | 2 +-
 Upgrade.hs         | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Annex/Version.hs b/Annex/Version.hs
index 5e7ba85c7c..27a4cb832b 100644
--- 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 1ea8d190a3..71cfe141e7 100644
--- 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 620a9ff4bd..d87a7b0302 100644
--- 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."
-- 
2.39.5