From 619f07ee6a0ad875f365886096b112b6c18b0606 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 30 Mar 2011 14:00:54 -0400
Subject: boilerplate reduction

---
 Remote.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Remote.hs')

diff --git a/Remote.hs b/Remote.hs
index 0cfec3c28..4e401ddcc 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -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)
-- 
cgit v1.2.3