mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused param

Browse source
This commit is contained in:
Joey Hess 2015-04-01 23:14:51 -04:00
parent 334a9f5738
commit 8b6013dad4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Command/AddUrl.hs
View file

@ -64,10 +64,10 @@ seek us = do
r <- Remote.claimingUrl u r <- Remote.claimingUrl u
if Remote.uuid r == webUUID || raw if Remote.uuid r == webUUID || raw
then void $ commandAction $ startWeb relaxed optfile pathdepth u 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 :: Remote -> URLString -> Maybe FilePath -> Bool -> Maybe Int -> Annex ()
checkUrl r u optfile relaxed raw pathdepth = do checkUrl r u optfile relaxed pathdepth = do
pathmax <- liftIO $ fileNameLengthLimit "." pathmax <- liftIO $ fileNameLengthLimit "."
let deffile = fromMaybe (urlString2file u pathdepth pathmax) optfile let deffile = fromMaybe (urlString2file u pathdepth pathmax) optfile
go deffile =<< maybe go deffile =<< maybe