This would have prevented old git-annex from ever upgrading from v9 to
v10. Note that a manual `git-annex upgrade` can never run while the
assistant is running, so not <$> assistantrunning was always True,
so no matter what the timestamp of the v9 upgrade in the log, it would
decide there was old process danger.
Sponsored-by: Jack Hill on Patreon
Nothing -> pure True
Just t -> do
now <- liftIO getPOSIXTime
- if now - 365*24*60*60 > t
+ if now < t + 365*24*60*60
then return True
- else not <$> assistantrunning
+ else assistantrunning
{- Skip upgrade when git-annex assistant (or watch) is running,
- because these are long-running daemons that could conceivably