remove Preparer abstraction
That had almost no benefit at all, and complicated things quite a lot. What I proably wanted this to be was something like ResourceT, but it was not. The few remotes that actually need some preparation done only once and reused used a MVar and not Preparer.
This commit is contained in:
parent
49bf7c8403
commit
b50ee9cd0c
15 changed files with 93 additions and 122 deletions
|
@ -105,10 +105,10 @@ gen r u rc gc rs = do
|
|||
{ chunkConfig = NoChunks
|
||||
}
|
||||
return $ Just $ specialRemote' specialcfg c
|
||||
(simplyPrepare $ store this buprepo)
|
||||
(simplyPrepare $ retrieve buprepo)
|
||||
(simplyPrepare $ remove buprepo)
|
||||
(simplyPrepare $ checkKey r bupr')
|
||||
(store this buprepo)
|
||||
(retrieve buprepo)
|
||||
(remove buprepo)
|
||||
(checkKey r bupr')
|
||||
this
|
||||
where
|
||||
buprepo = fromMaybe (giveup "missing buprepo") $ remoteAnnexBupRepo gc
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue