From 89578d4d3fc3004f04fa84ba933d5d91e0cca868 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 19 Jul 2016 12:12:19 -0400
Subject: Avoid any access to keys database in v5 mode repositories, which  are
 not supposed to use that database.

---
 Annex/Version.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Annex/Version.hs')

diff --git a/Annex/Version.hs b/Annex/Version.hs
index cb637e11a..af9487871 100644
--- a/Annex/Version.hs
+++ b/Annex/Version.hs
@@ -55,6 +55,9 @@ versionSupportsUnlockedPointers = go <$> getVersion
 versionSupportsAdjustedBranch :: Annex Bool
 versionSupportsAdjustedBranch = versionSupportsUnlockedPointers
 
+versionUsesKeysDatabase :: Annex Bool
+versionUsesKeysDatabase = versionSupportsUnlockedPointers
+
 setVersion :: Version -> Annex ()
 setVersion = setConfig versionField
 
-- 
cgit v1.2.3