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

simplify

Browse source
This commit is contained in:
Joey Hess 2021-08-09 15:17:48 -04:00
parent f54b9f2389
commit a871bcfe77
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/Rsync.hs
View file

@ -76,7 +76,7 @@ gen r u rc gc rs = do
fromMaybe (giveup "missing rsyncurl") $ remoteAnnexRsyncUrl gc fromMaybe (giveup "missing rsyncurl") $ remoteAnnexRsyncUrl gc
let o = genRsyncOpts c gc transport url let o = genRsyncOpts c gc transport url
let islocal = rsyncUrlIsPath $ rsyncUrl o let islocal = rsyncUrlIsPath $ rsyncUrl o
return $ Just $ specialRemote' (specialRemoteCfg c) c return $ Just $ specialRemote c
(fileStorer $ store o) (fileStorer $ store o)
(fileRetriever $ retrieve o) (fileRetriever $ retrieve o)
(remove o) (remove o)