summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-29 17:20:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-29 17:20:22 -0400
commit72f94cc42eca1a6aaa7cc95daf423915761805ff (patch)
treed2e4363596bfa582a1a1d5ebee71f71edffce93a /Remote.hs
parent475f7073613b7164302e3f826f60929cf4cd38f0 (diff)
progress
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote.hs b/Remote.hs
index 03615ac6e..147481185 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -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 }