From a6b6666c488f37e2e02ca0ec151283e0a41c5631 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 30 Jul 2014 10:34:39 -0400
Subject: only chunk stable keys

The content of unstable keys can potentially be different in different
repos, so eg, resuming a chunked upload started by another repo would
corrupt data.
---
 Backend.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Backend.hs')

diff --git a/Backend.hs b/Backend.hs
index 99752c66f..0fcaaa7ed 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -15,7 +15,7 @@ module Backend (
 	chooseBackend,
 	lookupBackendName,
 	maybeLookupBackendName,
-	checkStableKey,
+	isStableKey,
 ) where
 
 import Common.Annex
@@ -126,6 +126,6 @@ maybeLookupBackendName s = M.lookup s nameMap
 nameMap :: M.Map String Backend
 nameMap = M.fromList $ zip (map B.name list) list
 
-checkStableKey :: Key -> Bool
-checkStableKey k = maybe False (`B.isStableKey` k) 
+isStableKey :: Key -> Bool
+isStableKey k = maybe False (`B.isStableKey` k) 
 	(maybeLookupBackendName (keyBackendName k))
-- 
cgit v1.2.3