atomic file retrieval from backends

1 files changed, 7 insertions, 1 deletions

diff --git a/Locations.hs b/Locations.hs
index 76516224c..2b0adb7ba 100644
--- a/Locations.hs
+++ b/Locations.hs
@@ -7,7 +7,8 @@ module Locations (
 	keyFile,
 	fileKey,
 	annexLocation,
-	annexLocationRelative
+	annexLocationRelative,
+	annexTmpLocation
 ) where
 
 import Data.String.Utils
@@ -36,6 +37,11 @@ annexLocation r key =
 annexLocationRelative :: Git.Repo -> Key -> FilePath
 annexLocationRelative r key = Git.dir r ++ "/annex/" ++ (keyFile key)
 
+{- .git-annex/tmp is used for temp files
+ -}
+annexTmpLocation :: Git.Repo -> FilePath
+annexTmpLocation r = (Git.workTree r) ++ "/" ++ Git.dir r ++ "/annex/tmp/"
+
 {- Converts a key into a filename fragment.
  -
  - Escape "/" in the key name, to keep a flat tree of files and avoid