AssociatedFile newtype
To prevent any further mistakes like 301aff34c4
This commit was sponsored by Francois Marier on Patreon.
This commit is contained in:
parent
2cd7496210
commit
c8e1e3dada
43 changed files with 179 additions and 138 deletions
|
@ -46,9 +46,9 @@ perform :: Maybe Remote -> NumCopies -> Key -> CommandPerform
|
|||
perform from numcopies key = case from of
|
||||
Just r -> do
|
||||
showAction $ "from " ++ Remote.name r
|
||||
Command.Drop.performRemote key Nothing numcopies r
|
||||
Command.Drop.performRemote key (AssociatedFile Nothing) numcopies r
|
||||
Nothing -> ifM (inAnnex key)
|
||||
( Command.Drop.performLocal key Nothing numcopies []
|
||||
( Command.Drop.performLocal key (AssociatedFile Nothing) numcopies []
|
||||
, next (return True)
|
||||
)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue