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
|
@ -53,6 +53,6 @@ start o file key = stopUnless shouldCopy $
|
|||
| otherwise = return True
|
||||
want = case Command.Move.fromToOptions (moveOptions o) of
|
||||
ToRemote dest -> (Remote.uuid <$> getParsed dest) >>=
|
||||
wantSend False (Just key) (Just file)
|
||||
wantSend False (Just key) (AssociatedFile (Just file))
|
||||
FromRemote _ ->
|
||||
wantGet False (Just key) (Just file)
|
||||
wantGet False (Just key) (AssociatedFile (Just file))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue