diff options
Diffstat (limited to 'Remote/Glacier.hs')
-rw-r--r-- | Remote/Glacier.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 67e1b8b2e..40a92c700 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -30,12 +30,13 @@ type Vault = String type Archive = FilePath remote :: RemoteType -remote = RemoteType { - typename = "glacier", - enumerate = const (findSpecialRemotes "glacier"), - generate = gen, - setup = glacierSetup -} +remote = RemoteType + { typename = "glacier" + , enumerate = const (findSpecialRemotes "glacier") + , generate = gen + , setup = glacierSetup + , exportSupported = exportUnsupported + } gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote) gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost |