diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-22 16:02:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-22 16:02:52 -0400 |
| commit | 3ca53d2779c695ebb6cbdd210fea2167562637ff (patch) | |
| tree | 9fc7fe17043d36ec22b62039de7e2ef16bc2edb2 /Locations.hs | |
| parent | de5fdb11a238249c1b9b89a29277777a09f1cdb9 (diff) | |
add git fsck to cronner, and UI for repository repair (not yet wired up)
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index b96f58d5f..47a009590 100644 --- a/Locations.hs +++ b/Locations.hs @@ -28,6 +28,7 @@ module Locations ( gitAnnexBadLocation, gitAnnexUnusedLog, gitAnnexFsckState, + gitAnnexFsckResultsLog, gitAnnexScheduleState, gitAnnexTransferDir, gitAnnexCredsDir, @@ -66,6 +67,7 @@ import Data.Char import Common import Types import Types.Key +import Types.UUID import qualified Git {- Conventions: @@ -193,6 +195,10 @@ gitAnnexUnusedLog prefix r = gitAnnexDir r </> (prefix ++ "unused") gitAnnexFsckState :: Git.Repo -> FilePath gitAnnexFsckState r = gitAnnexDir r </> "fsckstate" +{- .git/annex/fsckresults/uuid is used to store results of git fscks -} +gitAnnexFsckResultsLog :: UUID -> Git.Repo -> FilePath +gitAnnexFsckResultsLog u r = gitAnnexDir r </> "fsckresults" </> fromUUID u + {- .git/annex/schedulestate is used to store information about when - scheduled jobs were last run. -} gitAnnexScheduleState :: Git.Repo -> FilePath |