diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-29 17:20:22 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-29 17:20:22 -0400 |
commit | 72f94cc42eca1a6aaa7cc95daf423915761805ff (patch) | |
tree | d2e4363596bfa582a1a1d5ebee71f71edffce93a /Remote.hs | |
parent | 475f7073613b7164302e3f826f60929cf4cd38f0 (diff) |
progress
Diffstat (limited to 'Remote.hs')
-rw-r--r-- | Remote.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -53,7 +53,7 @@ remoteTypes = ] {- Builds a list of all available Remotes. - - Since doing so can be expensive, the list is cached in the Annex. -} + - Since doing so can be expensive, the list is cached. -} genList :: Annex [Remote Annex] genList = do rs <- Annex.getState Annex.remotes @@ -130,7 +130,7 @@ remoteLog = do getConfigs :: [Remote Annex] -> Annex [Remote Annex] getConfigs rs = do m <- readRemoteLog - return $ map (get m) rs + return $ map (get m) rs where get m r = r { config = M.lookup (uuid r) m } |