aboutsummaryrefslogtreecommitdiff
path: root/Annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-05-09 15:04:07 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-05-09 15:04:07 -0400
commit036c90d79289ef3c14c28d69c9d8ab94fca1e841 (patch)
tree631dea4eac925dae7a24b0fde46ea813e574d2e4 /Annex.hs
parent5098ef192f7cf128836dab02fa424948003f8fd1 (diff)
annex.backend is the new name for what was annex.backends
It takes a single key-value backend, rather than the unncessary and confusing list. The old option still works if set. Simplified some old old code too. This commit was sponsored by Thomas Hochstein on Patreon.
Diffstat (limited to 'Annex.hs')
-rw-r--r--Annex.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex.hs b/Annex.hs
index 95709faec..2a372f158 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -98,7 +98,7 @@ data AnnexState = AnnexState
{ repo :: Git.Repo
, repoadjustment :: (Git.Repo -> IO Git.Repo)
, gitconfig :: GitConfig
- , backends :: [BackendA Annex]
+ , backend :: Maybe (BackendA Annex)
, remotes :: [Types.Remote.RemoteA Annex]
, remoteannexstate :: M.Map UUID AnnexState
, output :: MessageState
@@ -149,7 +149,7 @@ newState c r = do
{ repo = r
, repoadjustment = return
, gitconfig = c
- , backends = []
+ , backend = Nothing
, remotes = []
, remoteannexstate = M.empty
, output = def