From 1e07d61b9669f85a02551d7858177bd33ffaea6f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 27 Jan 2015 14:53:06 -0400 Subject: remove unused param --- Command/AddUrl.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 67f883d69..426bc372c 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -243,7 +243,7 @@ addUrlFile :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) addUrlFile relaxed url urlinfo file = do liftIO $ createDirectoryIfMissing True (parentDir file) ifM (Annex.getState Annex.fast <||> pure relaxed) - ( nodownload relaxed url urlinfo file + ( nodownload url urlinfo file , downloadWeb url urlinfo file ) @@ -303,8 +303,8 @@ cleanup u url file key mtmp = do Annex.Queue.flush maybe noop (moveAnnex key) mtmp -nodownload :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) -nodownload relaxed url urlinfo file +nodownload :: URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) +nodownload url urlinfo file | Url.urlExists urlinfo = do key <- Backend.URL.fromUrl url (Url.urlSize urlinfo) cleanup webUUID url file key Nothing -- cgit v1.2.3