diff options
author | Joey Hess <joey@kitenet.net> | 2013-08-03 01:40:21 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-08-03 01:40:21 -0400 |
commit | e164673d4e07e9890e6f488bd28d99aa47b09770 (patch) | |
tree | 6f69792ad9b06596b4465dd798911d4d38713852 /Locations.hs | |
parent | 6944adde6ac896cd952f20a0b5ec7853a928ce49 (diff) |
importfeed: Ignores transient problems with feeds. Only exits nonzero when a feed has repeatedly had a problems for at least 1 day.
Diffstat (limited to 'Locations.hs')
-rw-r--r-- | Locations.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index 7a897f837..1cbbb9886 100644 --- a/Locations.hs +++ b/Locations.hs @@ -28,6 +28,8 @@ module Locations ( gitAnnexFsckState, gitAnnexTransferDir, gitAnnexCredsDir, + gitAnnexFeedStateDir, + gitAnnexFeedState, gitAnnexMergeDir, gitAnnexJournalDir, gitAnnexJournalLock, @@ -190,6 +192,13 @@ gitAnnexFsckState r = gitAnnexDir r </> "fsckstate" gitAnnexCredsDir :: Git.Repo -> FilePath gitAnnexCredsDir r = addTrailingPathSeparator $ gitAnnexDir r </> "creds" +{- .git/annex/feeds/ is used to record per-key (url) state by importfeeds -} +gitAnnexFeedStateDir :: Git.Repo -> FilePath +gitAnnexFeedStateDir r = addTrailingPathSeparator $ gitAnnexDir r </> "feedstate" + +gitAnnexFeedState :: Key -> Git.Repo -> FilePath +gitAnnexFeedState k r = gitAnnexFeedStateDir r </> keyFile k + {- .git/annex/merge/ is used for direct mode merges. -} gitAnnexMergeDir :: Git.Repo -> FilePath gitAnnexMergeDir r = addTrailingPathSeparator $ gitAnnexDir r </> "merge" |