refactoring
This commit is contained in:
parent
9c2c3002a6
commit
1704b5e327
3 changed files with 25 additions and 14 deletions
|
@ -56,3 +56,11 @@ generateEquivilantKey b f =
|
|||
, contentLocation = f
|
||||
, inodeCache = Nothing
|
||||
}
|
||||
|
||||
recordVurlKey :: Backend -> OsPath -> Key -> [Key] -> Annex Bool
|
||||
recordVurlKey b f key eks = generateEquivilantKey b f >>= \case
|
||||
Nothing -> return False
|
||||
Just ek -> do
|
||||
unless (ek `elem` eks) $
|
||||
setEquivilantKey key ek
|
||||
return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue