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-01-27 14:53:06 -04:00
parent 51fc3014c6
commit b11a7b0ace
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

@ -243,7 +243,7 @@ addUrlFile :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key)
addUrlFile relaxed url urlinfo file = do addUrlFile relaxed url urlinfo file = do
liftIO $ createDirectoryIfMissing True (parentDir file) liftIO $ createDirectoryIfMissing True (parentDir file)
ifM (Annex.getState Annex.fast <||> pure relaxed) ifM (Annex.getState Annex.fast <||> pure relaxed)
( nodownload relaxed url urlinfo file ( nodownload url urlinfo file
, downloadWeb url urlinfo file , downloadWeb url urlinfo file
) )
@ -303,8 +303,8 @@ cleanup u url file key mtmp = do
Annex.Queue.flush Annex.Queue.flush
maybe noop (moveAnnex key) mtmp maybe noop (moveAnnex key) mtmp
nodownload :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) nodownload :: URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key)
nodownload relaxed url urlinfo file nodownload url urlinfo file
| Url.urlExists urlinfo = do | Url.urlExists urlinfo = do
key <- Backend.URL.fromUrl url (Url.urlSize urlinfo) key <- Backend.URL.fromUrl url (Url.urlSize urlinfo)
cleanup webUUID url file key Nothing cleanup webUUID url file key Nothing