From 08c27c5ea0d77e81a892367968cb7db390ff9cdb Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 9 Oct 2023 14:26:24 -0400
Subject: [PATCH] don't say a supported version is unsupported

When an automatic upgrade from eg v10 fails, it's still a supported
version, so don't say unsupported.
---
 Upgrade.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Upgrade.hs b/Upgrade.hs
index 244050444f..4f6585b2ea 100644
--- a/Upgrade.hs
+++ b/Upgrade.hs
@@ -61,7 +61,11 @@ needsUpgrade v
 		p <- liftIO $ absPath $ Git.repoPath g
 		return $ Just $ unwords
 			[ "Repository", fromRawFilePath p
-			, "is at unsupported version"
+			, "is at"
+			, if v `elem` supportedVersions 
+				then "supported"
+				else "unsupported"
+			, "version"
 			, show (fromRepoVersion v) ++ "."
 			, msg
 			]
-- 
2.30.2