add a log file for scheduled activities

This commit is contained in:
Joey Hess 2013-10-07 16:06:34 -04:00
parent b22ed77fc4
commit 29ca49dad4
3 changed files with 77 additions and 0 deletions

View file

@ -28,6 +28,7 @@ uuidBasedLogs =
, trustLog
, groupLog
, preferredContentLog
, scheduleLog
]
{- All the ways to get a key from a presence log file -}
@ -52,6 +53,9 @@ groupLog = "group.log"
preferredContentLog :: FilePath
preferredContentLog = "preferred-content.log"
scheduleLog :: FilePath
scheduleLog = "schedule.log"
{- The pathname of the location log file for a given key. -}
locationLogFile :: Key -> String
locationLogFile key = hashDirLower key ++ keyFile key ++ ".log"