diff options
author | Joey Hess <joeyh@joeyh.name> | 2014-12-16 15:26:13 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2014-12-16 15:26:13 -0400 |
commit | f3962d32f3b88ddb66ea564dbf0c3189047410b7 (patch) | |
tree | f1b3eb1d3c66ff338493968265bdae44762ef53f /Remote/Web.hs | |
parent | 95418cc430284b65af13105f7c63da08908dd826 (diff) |
reformat
Diffstat (limited to 'Remote/Web.hs')
-rw-r--r-- | Remote/Web.hs | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 639eb7e3b..7d6cd2938 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -42,31 +42,31 @@ list = do gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote) gen r _ c gc = - return $ Just Remote { - uuid = webUUID, - cost = expensiveRemoteCost, - name = Git.repoDescribe r, - storeKey = uploadKey, - retrieveKeyFile = downloadKey, - retrieveKeyFileCheap = downloadKeyCheap, - removeKey = dropKey, - checkPresent = checkKey, - checkPresentCheap = False, - whereisKey = Just getWebUrls, - remoteFsck = Nothing, - repairRepo = Nothing, - config = c, - gitconfig = gc, - localpath = Nothing, - repo = r, - readonly = True, - availability = GloballyAvailable, - remotetype = remote, - mkUnavailable = return Nothing, - getInfo = return [], - claimUrl = Nothing, -- implicitly claims all urls - checkUrl = Nothing - } + return $ Just Remote + { uuid = webUUID + , cost = expensiveRemoteCost + , name = Git.repoDescribe r + , storeKey = uploadKey + , retrieveKeyFile = downloadKey + , retrieveKeyFileCheap = downloadKeyCheap + , removeKey = dropKey + , checkPresent = checkKey + , checkPresentCheap = False + , whereisKey = Just getWebUrls + , remoteFsck = Nothing + , repairRepo = Nothing + , config = c + , gitconfig = gc + , localpath = Nothing + , repo = r + , readonly = True + , availability = GloballyAvailable + , remotetype = remote + , mkUnavailable = return Nothing + , getInfo = return [] + , claimUrl = Nothing -- implicitly claims all urls + , checkUrl = Nothing + } downloadKey :: Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Bool downloadKey key _file dest _p = get =<< getWebUrls key |