diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/AddUrl.hs | 6 |
1 files 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 |