summaryrefslogtreecommitdiff
path: root/Locations.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-08-03 01:40:21 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-08-03 01:40:21 -0400
commite164673d4e07e9890e6f488bd28d99aa47b09770 (patch)
tree6f69792ad9b06596b4465dd798911d4d38713852 /Locations.hs
parent6944adde6ac896cd952f20a0b5ec7853a928ce49 (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.hs9
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"