From 06b0cb6224377fd2ea86e4e209e94a502f92716e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 19 Jan 2012 16:07:36 -0400 Subject: add tmp flag parameter to retrieveKeyFile --- Remote/Web.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Remote/Web.hs') diff --git a/Remote/Web.hs b/Remote/Web.hs index 4d6348e59..6db3429eb 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -48,8 +48,8 @@ gen r _ _ = remotetype = remote } -downloadKey :: Key -> FilePath -> Annex Bool -downloadKey key file = get =<< getUrls key +downloadKey :: Key -> Bool -> FilePath -> Annex Bool +downloadKey key _ file = get =<< getUrls key where get [] = do warning "no known url" -- cgit v1.2.3