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

boilerplate reduction

Browse source
This commit is contained in:
Joey Hess 2011-03-30 14:00:54 -04:00
parent a47ed922e1
commit 619f07ee6a
6 changed files with 90 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote.hs
View file

@ -75,7 +75,8 @@ genList = do
mapM (gen m t) l'
gen m t r = do
u <- getUUID r
generate t r (M.lookup u m)
cst <- remoteCost r
generate t r u cst (M.lookup u m)
{- Looks up a remote by name. (Or by UUID.) -}
byName :: String -> Annex (Remote Annex)