let url claims optionally include a suggested filename

1 files changed, 2 insertions, 1 deletions

diff --git a/Types/Remote.hs b/Types/Remote.hs
index baa857906..bb56bb01d 100644
--- a/Types/Remote.hs
+++ b/Types/Remote.hs
@@ -25,6 +25,7 @@ import Types.UUID
 import Types.GitConfig
 import Types.Availability
 import Types.Creds
+import Types.URLClaim
 import Config.Cost
 import Utility.Metered
 import Git.Types
@@ -103,7 +104,7 @@ data RemoteA a = Remote {
 	-- Information about the remote, for git annex info to display.
 	getInfo :: a [(String, String)],
 	-- Some remotes can download from an url (or uri).
-	claimUrl :: Maybe (URLString -> a Bool),
+	claimUrl :: Maybe (URLString -> a (Maybe URLClaim)),
 	-- Checks that the url is accessible, and gets the size of its
 	-- content. Returns Nothing if the url is accessible, but
 	-- its size cannot be determined inexpensively.