mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
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 Annex.Common
import Types.Remote import Types.Remote
import Types.StoreRetrieve import Types.StoreRetrieve
import Types.Import
import Types.Export
import Utility.Metered import Utility.Metered
{- Adds support for read-only remotes, by replacing the {- Adds support for read-only remotes, by replacing the
@ -28,14 +30,14 @@ adjustReadOnly r
{ storeKey = readonlyStoreKey { storeKey = readonlyStoreKey
, removeKey = readonlyRemoveKey , removeKey = readonlyRemoveKey
, repairRepo = Nothing , repairRepo = Nothing
, exportActions = exportActions r , exportActions = (exportActions r)
{ storeExport = readonlyStoreExport { storeExport = readonlyStoreExport
, removeExport = readonlyRemoveExport , removeExport = readonlyRemoveExport
, removeExportDirectory = Just readonlyRemoveExportDirectory , removeExportDirectory = Just readonlyRemoveExportDirectory
, renameExport = readonlyRenameExport , renameExport = readonlyRenameExport
} }
, importActions = importActions r , importActions = (importActions r)
{ storeExportWithContentIdentifier = readonlyStoreExportWithContentIdentifiera { storeExportWithContentIdentifier = readonlyStoreExportWithContentIdentifier
, removeExportWithContentIdentifier = readonlyRemoveExportWithContentIdentifier , removeExportWithContentIdentifier = readonlyRemoveExportWithContentIdentifier
, removeExportDirectoryWhenEmpty = Just readonlyRemoveExportDirectory , removeExportDirectoryWhenEmpty = Just readonlyRemoveExportDirectory
} }
@ -68,8 +70,8 @@ readonlyStoreExportWithContentIdentifier _ _ _ _ _ = do
readonlyWarning readonlyWarning
return Nothing return Nothing
removeExportWithContentIdentifier :: Key -> ExportLocation -> [ContentIdentifier] -> Annex Bool readonlyRemoveExportWithContentIdentifier :: Key -> ExportLocation -> [ContentIdentifier] -> Annex Bool
removeExportWithContentIdentifier _ _ _ = readonlyFail readonlyRemoveExportWithContentIdentifier _ _ _ = readonlyFail
readonlyFail :: Annex Bool readonlyFail :: Annex Bool
readonlyFail = do readonlyFail = do
@ -77,4 +79,4 @@ readonlyFail = do
return False return False
readonlyWarning :: Annex () readonlyWarning :: Annex ()
readonylWarning = warning "this remote is readonly" readonlyWarning = warning "this remote is readonly"