7189dfd77d
* webapp: Detect when upgrades are available, and upgrade if the user
desires.
(Only when git-annex is installed using the prebuilt binaries
from git-annex upstream, not from eg Debian.)
* assistant: Detect when the git-annex binary is modified or replaced,
and either prompt the user to restart the program, or automatically
restart it.
* annex.autoupgrade configures both the above upgrade behaviors.
* Added support for quvi 0.9. Slightly suboptimal due to limitations in its
interface compared with the old version.
* Bug fix: annex.version did not get set on automatic upgrade to v5 direct
mode repo, so the upgrade was performed repeatedly, slowing commands down.
* webapp: Fix bug that broke switching between local repositories
that use the new guarded direct mode.
* Android: Fix stripping of the git-annex binary.
* Android: Make terminal app show git-annex version number.
* Android: Re-enable XMPP support.
* reinject: Allow to be used in direct mode.
* Futher improvements to git repo repair. Has now been tested in tens
of thousands of intentionally damaged repos, and successfully
repaired them all.
* Allow use of --unused in bare repository.
# imported from the archive
69 lines
2.3 KiB
Haskell
69 lines
2.3 KiB
Haskell
{- git-annex scheduled activities
|
|
-
|
|
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Types.ScheduledActivity where
|
|
|
|
import Common
|
|
import Utility.Scheduled
|
|
import Utility.HumanTime
|
|
import Types.UUID
|
|
|
|
import Data.Either
|
|
|
|
data ScheduledActivity
|
|
= ScheduledSelfFsck Schedule Duration
|
|
| ScheduledRemoteFsck UUID Schedule Duration
|
|
deriving (Eq, Read, Show, Ord)
|
|
|
|
{- Activities that run on a remote, within a time window, so
|
|
- should be run when the remote gets connected. -}
|
|
connectActivityUUID :: ScheduledActivity -> Maybe UUID
|
|
connectActivityUUID (ScheduledRemoteFsck u (Schedule _ AnyTime) _) = Just u
|
|
connectActivityUUID _ = Nothing
|
|
|
|
getSchedule :: ScheduledActivity -> Schedule
|
|
getSchedule (ScheduledSelfFsck s _) = s
|
|
getSchedule (ScheduledRemoteFsck _ s _) = s
|
|
|
|
getDuration :: ScheduledActivity -> Duration
|
|
getDuration (ScheduledSelfFsck _ d) = d
|
|
getDuration (ScheduledRemoteFsck _ _ d) = d
|
|
|
|
fromScheduledActivity :: ScheduledActivity -> String
|
|
fromScheduledActivity (ScheduledSelfFsck s d) = unwords
|
|
[ "fsck self", fromDuration d, fromSchedule s ]
|
|
fromScheduledActivity (ScheduledRemoteFsck u s d) = unwords
|
|
[ "fsck", fromUUID u, fromDuration d, fromSchedule s ]
|
|
|
|
toScheduledActivity :: String -> Maybe ScheduledActivity
|
|
toScheduledActivity = eitherToMaybe . parseScheduledActivity
|
|
|
|
parseScheduledActivity :: String -> Either String ScheduledActivity
|
|
parseScheduledActivity s = case words s of
|
|
("fsck":"self":d:rest) -> qualified $ ScheduledSelfFsck
|
|
<$> parseSchedule (unwords rest)
|
|
<*> getduration d
|
|
("fsck":u:d:rest) -> qualified $ ScheduledRemoteFsck
|
|
<$> pure (toUUID u)
|
|
<*> parseSchedule (unwords rest)
|
|
<*> getduration d
|
|
_ -> qualified $ Left "unknown activity"
|
|
where
|
|
qualified (Left e) = Left $ e ++ " in \"" ++ s ++ "\""
|
|
qualified v = v
|
|
getduration d = maybe (Left $ "failed to parse duration \""++d++"\"") Right (parseDuration d)
|
|
|
|
fromScheduledActivities :: [ScheduledActivity] -> String
|
|
fromScheduledActivities = intercalate "; " . map fromScheduledActivity
|
|
|
|
parseScheduledActivities :: String -> Either String [ScheduledActivity]
|
|
parseScheduledActivities s
|
|
| null bad = Right good
|
|
| otherwise = Left $ intercalate "; " bad
|
|
where
|
|
(bad, good) = partitionEithers $
|
|
map parseScheduledActivity $ split "; " s
|