diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-05-31 16:20:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-05-31 16:49:28 -0400 |
| commit | 75ae06595a6971eb21630928bcdd3f33c06b3ea0 (patch) | |
| tree | 9bb64df745731601e451e092235715f22c2e9ad7 /Command/Copy.hs | |
| parent | c2f804b9b2d80af91bac1d0b074c664efcf8da97 (diff) | |
support parsing options like --to=here
Reworked remote name parsing to allow things like that. Command.Move
uses it for --to=here, although there's not yet an implementation of
that option.
This commit was sponsored by Ignacio on Patreon.
Diffstat (limited to 'Command/Copy.hs')
| -rw-r--r-- | Command/Copy.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Copy.hs b/Command/Copy.hs index 9b41b17d7..1f35d9ce8 100644 --- a/Command/Copy.hs +++ b/Command/Copy.hs @@ -52,7 +52,7 @@ start o file key = stopUnless shouldCopy $ | autoMode o = want <||> numCopiesCheck file key (<) | otherwise = return True want = case Command.Move.fromToOptions (moveOptions o) of - ToRemote dest -> (Remote.uuid <$> getParsed dest) >>= + Right (ToRemote dest) -> (Remote.uuid <$> getParsed dest) >>= wantSend False (Just key) (AssociatedFile (Just file)) - FromRemote _ -> + Right (FromRemote _) -> wantGet False (Just key) (AssociatedFile (Just file)) |