From 14df22fa31b43441232e18ec9112d7c2ce2e0905 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 1 Apr 2015 23:14:51 -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 ab6b9b8df..5defc52d9 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -64,10 +64,10 @@ seek us = do r <- Remote.claimingUrl u if Remote.uuid r == webUUID || raw then void $ commandAction $ startWeb relaxed optfile pathdepth u - else checkUrl r u optfile relaxed raw pathdepth + else checkUrl r u optfile relaxed pathdepth -checkUrl :: Remote -> URLString -> Maybe FilePath -> Bool -> Bool -> Maybe Int -> Annex () -checkUrl r u optfile relaxed raw pathdepth = do +checkUrl :: Remote -> URLString -> Maybe FilePath -> Bool -> Maybe Int -> Annex () +checkUrl r u optfile relaxed pathdepth = do pathmax <- liftIO $ fileNameLengthLimit "." let deffile = fromMaybe (urlString2file u pathdepth pathmax) optfile go deffile =<< maybe -- cgit v1.2.3