diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-31 18:59:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-31 18:59:57 -0400 |
| commit | 54a492db5f86093349910cc0028ff1a56714775f (patch) | |
| tree | 01a858ea5bb9d68dc8eed71efbd435f383269727 /Locations.hs | |
| parent | 86fb1305dc623865ef672d499e1559a2608c5be6 (diff) | |
UI for adding a ssh or rsync remote
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 330645dfc..be5fd6c2f 100644 --- a/Locations.hs +++ b/Locations.hs @@ -30,6 +30,7 @@ module Locations ( gitAnnexHtmlShim, gitAnnexSshDir, gitAnnexRemotesDir, + gitAnnexAssistantDefaultDir, isLinkToAnnex, annexHashes, hashDirMixed, @@ -179,6 +180,11 @@ gitAnnexSshDir r = addTrailingPathSeparator $ gitAnnexDir r </> "ssh" gitAnnexRemotesDir :: Git.Repo -> FilePath gitAnnexRemotesDir r = addTrailingPathSeparator $ gitAnnexDir r </> "remotes" +{- This is the base directory name used by the assistant when making + - repositories, by default. -} +gitAnnexAssistantDefaultDir :: FilePath +gitAnnexAssistantDefaultDir = "annex" + {- Checks a symlink target to see if it appears to point to annexed content. -} isLinkToAnnex :: FilePath -> Bool isLinkToAnnex s = ('/':d) `isInfixOf` s || d `isPrefixOf` s |