support --to=. as shorthand for --to=here

This commit is contained in:
Joey Hess 2017-06-01 13:12:42 -04:00
parent 6ae27843b6
commit 02df5c5932
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -43,6 +43,7 @@ optParser desc = MoveOptions
parseto = herespecialcase <$> parseToOption
where
herespecialcase "here" = Left ToHere
herespecialcase "." = Left ToHere
herespecialcase n = Right $ ToRemote $ parseRemoteOption n
instance DeferredParseClass MoveOptions where