aboutsummaryrefslogtreecommitdiff
path: root/Command/Get.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-05-31 16:20:55 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-05-31 16:49:28 -0400
commit75ae06595a6971eb21630928bcdd3f33c06b3ea0 (patch)
tree9bb64df745731601e451e092235715f22c2e9ad7 /Command/Get.hs
parentc2f804b9b2d80af91bac1d0b074c664efcf8da97 (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/Get.hs')
-rw-r--r--Command/Get.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Get.hs b/Command/Get.hs
index fc6ff7374..3a4a4606a 100644
--- a/Command/Get.hs
+++ b/Command/Get.hs
@@ -32,7 +32,7 @@ data GetOptions = GetOptions
optParser :: CmdParamsDesc -> Parser GetOptions
optParser desc = GetOptions
<$> cmdParams desc
- <*> optional parseFromOption
+ <*> optional (parseRemoteOption <$> parseFromOption)
<*> parseAutoOption
<*> optional (parseIncompleteOption <|> parseKeyOptions <|> parseFailedTransfersOption)
<*> parseBatchOption