versionchar c = isAlphaNum c || c == '.' || c == '-'
makeinfos :: [(FilePath, Version)] -> Version -> Annex [([Char], Maybe GitAnnexDistribution)]
-makeinfos updated version = do
+makeinfos updated changelogversion = do
mapM_ (\f -> inRepo $ runBool [Param "annex", Param "add", File f]) (map fst updated)
void $ inRepo $ runBool
[ Param "commit"
, Param "-a"
, Param ("-S" ++ signingKey)
, Param "-m"
- , Param $ "publishing git-annex " ++ version
+ , Param $ "publishing git-annex " ++ descversion
]
now <- liftIO getCurrentTime
liftIO $ putStrLn $ "building info files"
[ Param "commit"
, Param ("-S" ++ signingKey)
, Param "-m"
- , Param $ "updated info files for git-annex " ++ version
+ , Param $ "updated info files for git-annex " ++ descversion
]
void $ inRepo $ runBool
[ Param "annex"
where
outofdate (_, md) = case md of
Nothing -> True
- Just d -> distributionVersion d /= version
+ Just d -> distributionVersion d /= changelogversion
+ descversion = unwords (nub (map snd updated))
getRepoDir :: IO FilePath
getRepoDir = do
--- /dev/null
+[[!comment format=mdwn
+ username="joey"
+ subject="""comment 2"""
+ date="2021-08-09T16:23:35Z"
+ content="""
+As far as the git commit message goes, I usually don't have a new changelog
+entry for an unreleased version opened when I run the release updating
+script, but did in this case. Only the commit message is affected. I've
+fixed the cause of that problem.
+"""]]