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.
This commit is contained in:
Joey Hess 2023-10-09 14:26:24 -04:00
parent 7ac22dc834
commit 08c27c5ea0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -61,7 +61,11 @@ needsUpgrade v
p <- liftIO $ absPath $ Git.repoPath g p <- liftIO $ absPath $ Git.repoPath g
return $ Just $ unwords return $ Just $ unwords
[ "Repository", fromRawFilePath p [ "Repository", fromRawFilePath p
, "is at unsupported version" , "is at"
, if v `elem` supportedVersions
then "supported"
else "unsupported"
, "version"
, show (fromRepoVersion v) ++ "." , show (fromRepoVersion v) ++ "."
, msg , msg
] ]