parameterize Backend type
This allows the Backend type to not depend on the Annex type, and so the Annex type can later be moved out of TypeInternals.
This commit is contained in:
parent
f8e303e1c9
commit
109a719b03
14 changed files with 43 additions and 41 deletions
|
@ -30,7 +30,7 @@ start file = isAnnexed file $ \(key, backend) -> do
|
|||
showStart "get" file
|
||||
return $ Just $ perform key backend
|
||||
|
||||
perform :: Key -> Backend -> CommandPerform
|
||||
perform :: Key -> Backend Annex -> CommandPerform
|
||||
perform key backend = do
|
||||
ok <- getViaTmp key (Backend.retrieveKeyFile backend key)
|
||||
if ok
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue