From 19dad744be43c071b824f990dbeb1d6ed19b301e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 18 Mar 2013 13:13:33 -0400
Subject: minor robustness fixes in repo cost reordering code

---
 Config/Cost.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Config')

diff --git a/Config/Cost.hs b/Config/Cost.hs
index 94bab1fe1..dc391a5a5 100644
--- a/Config/Cost.hs
+++ b/Config/Cost.hs
@@ -42,7 +42,7 @@ encryptedRemoteCostAdj = 50
  - position longer than the list.
  -}
 insertCostAfter :: [Cost] -> Int -> [Cost]
-insertCostAfter [] _ = error "insertCostAfter: empty list"
+insertCostAfter [] _ = []
 insertCostAfter l pos
 	| pos < 0 = costBetween 0 (l !! 0) : l
 	| nextpos > maxpos = l ++ [1 + l !! maxpos]
-- 
cgit v1.2.3