add a log file for scheduled activities
This commit is contained in:
parent
b22ed77fc4
commit
29ca49dad4
3 changed files with 77 additions and 0 deletions
42
Logs/Schedule.hs
Normal file
42
Logs/Schedule.hs
Normal file
|
@ -0,0 +1,42 @@
|
|||
{- git-annex scheduled activities log
|
||||
-
|
||||
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Logs.Schedule (
|
||||
scheduleLog,
|
||||
scheduleSet,
|
||||
scheduleGet,
|
||||
) where
|
||||
|
||||
import qualified Data.Map as M
|
||||
import Data.Time.Clock.POSIX
|
||||
|
||||
import Common.Annex
|
||||
import Types.ScheduledActivity
|
||||
import qualified Annex.Branch
|
||||
import Logs
|
||||
import Logs.UUIDBased
|
||||
|
||||
scheduleSet :: UUID -> [ScheduledActivity] -> Annex ()
|
||||
scheduleSet uuid@(UUID _) activities = do
|
||||
ts <- liftIO getPOSIXTime
|
||||
Annex.Branch.change scheduleLog $
|
||||
showLog id . changeLog ts uuid val . parseLog Just
|
||||
where
|
||||
val = intercalate "; " $ map fromScheduledActivity activities
|
||||
scheduleSet NoUUID _ = error "unknown UUID; cannot modify"
|
||||
|
||||
scheduleMap :: Annex (M.Map UUID [ScheduledActivity])
|
||||
scheduleMap = simpleMap
|
||||
. parseLogWithUUID parser
|
||||
<$> Annex.Branch.get scheduleLog
|
||||
where
|
||||
parser _uuid = Just . mapMaybe toScheduledActivity . split "; "
|
||||
|
||||
scheduleGet :: UUID -> Annex [ScheduledActivity]
|
||||
scheduleGet u = do
|
||||
m <- scheduleMap
|
||||
return $ fromMaybe [] $ M.lookup u m
|
Loading…
Add table
Add a link
Reference in a new issue