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
|
@ -42,7 +42,7 @@ start (file, b) = isAnnexed file $ \(key, oldbackend) -> do
|
|||
return $ head backends
|
||||
choosebackend (Just backend) = return backend
|
||||
|
||||
perform :: FilePath -> Key -> Backend -> CommandPerform
|
||||
perform :: FilePath -> Key -> Backend Annex -> CommandPerform
|
||||
perform file oldkey newbackend = do
|
||||
g <- Annex.gitRepo
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue