mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2019-05-28 11:17:25 -04:00
parent c1ed0293b0
commit 94cba37f68
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Remote/Helper/ReadOnly.hs
View file

@ -15,6 +15,8 @@ module Remote.Helper.ReadOnly
import Annex.Common
import Types.Remote
import Types.StoreRetrieve
import Types.Import
import Types.Export
import Utility.Metered
{- Adds support for read-only remotes, by replacing the
@ -28,14 +30,14 @@ adjustReadOnly r
{ storeKey = readonlyStoreKey
, removeKey = readonlyRemoveKey
, repairRepo = Nothing
, exportActions = exportActions r
, exportActions = (exportActions r)
{ storeExport = readonlyStoreExport
, removeExport = readonlyRemoveExport
, removeExportDirectory = Just readonlyRemoveExportDirectory
, renameExport = readonlyRenameExport
}
, importActions = importActions r
{ storeExportWithContentIdentifier = readonlyStoreExportWithContentIdentifiera
, importActions = (importActions r)
{ storeExportWithContentIdentifier = readonlyStoreExportWithContentIdentifier
, removeExportWithContentIdentifier = readonlyRemoveExportWithContentIdentifier
, removeExportDirectoryWhenEmpty = Just readonlyRemoveExportDirectory
}
@ -68,8 +70,8 @@ readonlyStoreExportWithContentIdentifier _ _ _ _ _ = do
readonlyWarning
return Nothing
removeExportWithContentIdentifier :: Key -> ExportLocation -> [ContentIdentifier] -> Annex Bool
removeExportWithContentIdentifier _ _ _ = readonlyFail
readonlyRemoveExportWithContentIdentifier :: Key -> ExportLocation -> [ContentIdentifier] -> Annex Bool
readonlyRemoveExportWithContentIdentifier _ _ _ = readonlyFail
readonlyFail :: Annex Bool
readonlyFail = do
@ -77,4 +79,4 @@ readonlyFail = do
return False
readonlyWarning :: Annex ()
readonylWarning = warning "this remote is readonly"
readonlyWarning = warning "this remote is readonly"