diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-09-07 15:53:34 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-09-07 15:53:34 -0400 |
| commit | a39d0a51b48a02afd7a9cd50725b753d96e9e145 (patch) | |
| tree | 33909c5a6920d1ac0ab7aa22452a7d15e3338f9f /Remote/BitTorrent.hs | |
| parent | d928368d8a698abcaa06b4ee17764f5514521ffc (diff) | |
| parent | 6b62556049481d8ed9b75a1642f3422a79c55133 (diff) | |
Merge branch 'export'
Diffstat (limited to 'Remote/BitTorrent.hs')
| -rw-r--r-- | Remote/BitTorrent.hs | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/Remote/BitTorrent.hs b/Remote/BitTorrent.hs index 2f29f5baa..37594bd11 100644 --- a/Remote/BitTorrent.hs +++ b/Remote/BitTorrent.hs @@ -26,6 +26,7 @@ import Backend.URL import Annex.Perms import Annex.UUID import qualified Annex.Url as Url +import Remote.Helper.Export import Network.URI @@ -35,12 +36,13 @@ import qualified Data.ByteString.Lazy as B #endif remote :: RemoteType -remote = RemoteType { - typename = "bittorrent", - enumerate = list, - generate = gen, - setup = error "not supported" -} +remote = RemoteType + { typename = "bittorrent" + , enumerate = list + , generate = gen + , setup = error "not supported" + , exportSupported = exportUnsupported + } -- There is only one bittorrent remote, and it always exists. list :: Bool -> Annex [Git.Repo] @@ -61,6 +63,7 @@ gen r _ c gc = , lockContent = Nothing , checkPresent = checkKey , checkPresentCheap = False + , exportActions = exportUnsupported , whereisKey = Nothing , remoteFsck = Nothing , repairRepo = Nothing |