diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
| commit | 264bd9ebe37855d4005022df057da13ec8080afb (patch) | |
| tree | f32f13646ece29c8f6336b8680cb07dd55187be5 /Remote/List.hs | |
| parent | d9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (diff) | |
where indenting
Diffstat (limited to 'Remote/List.hs')
| -rw-r--r-- | Remote/List.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Remote/List.hs b/Remote/List.hs index 234f310a5..ea1d61ce3 100644 --- a/Remote/List.hs +++ b/Remote/List.hs @@ -56,8 +56,8 @@ remoteList = do Annex.changeState $ \s -> s { Annex.remotes = rs' } return rs' else return rs - where - process m t = enumerate t >>= mapM (remoteGen m t) + where + process m t = enumerate t >>= mapM (remoteGen m t) {- Forces the remoteList to be re-generated, re-reading the git config. -} remoteListRefresh :: Annex [Remote] @@ -81,11 +81,11 @@ updateRemote remote = do m <- readRemoteLog remote' <- updaterepo $ repo remote remoteGen m (remotetype remote) remote' - where - updaterepo r - | Git.repoIsLocal r || Git.repoIsLocalUnknown r = - Remote.Git.configRead r - | otherwise = return r + where + updaterepo r + | Git.repoIsLocal r || Git.repoIsLocalUnknown r = + Remote.Git.configRead r + | otherwise = return r {- All remotes that are not ignored. -} enabledRemoteList :: Annex [Remote] |