export some always failing methods for readonly remotes

1 files changed, 25 insertions, 8 deletions

diff --git a/Remote/Helper/ReadOnly.hs b/Remote/Helper/ReadOnly.hs
index 2e327a040..c0330e453 100644
--- a/Remote/Helper/ReadOnly.hs
+++ b/Remote/Helper/ReadOnly.hs
@@ -1,14 +1,21 @@
 {- Adds readonly support to remotes.
  -
- - Copyright 2013 Joey Hess <id@joeyh.name>
+ - Copyright 2013, 2015 Joey Hess <id@joeyh.name>
  -
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Remote.Helper.ReadOnly (adjustReadOnly) where
+module Remote.Helper.ReadOnly
+	( adjustReadOnly
+	, readonlyStoreKey
+	, readonlyStorer
+	, readonlyRemoveKey
+	) where
 
 import Common.Annex
 import Types.Remote
+import Types.StoreRetrieve
+import Utility.Metered
 
 {- Adds support for read-only remotes, by replacing the
  - methods that write to a remote with dummies that fail.
@@ -18,12 +25,22 @@ import Types.Remote
 adjustReadOnly :: Remote -> Remote
 adjustReadOnly r
 	| remoteAnnexReadOnly (gitconfig r) = r
-		{ storeKey = \_ _ _ -> failbool
-		, removeKey = \_ -> failbool
+		{ storeKey = readonlyStoreKey
+		, removeKey = readonlyRemoveKey
 		, repairRepo = Nothing
 		}
 	| otherwise = r
-  where
-	failbool = do
-		warning "this remote is readonly"
-		return False
+
+readonlyStoreKey :: Key -> AssociatedFile -> MeterUpdate -> Annex Bool
+readonlyStoreKey _ _ _ = readonlyFail
+
+readonlyRemoveKey :: Key -> Annex Bool
+readonlyRemoveKey _ = readonlyFail
+
+readonlyStorer :: Storer
+readonlyStorer _ _ _ = readonlyFail
+
+readonlyFail :: Annex Bool
+readonlyFail = do
+	warning "this remote is readonly"
+	return False