support --to=. as shorthand for --to=here
This commit is contained in:
parent
6ae27843b6
commit
02df5c5932
1 changed files with 1 additions and 0 deletions
|
@ -43,6 +43,7 @@ optParser desc = MoveOptions
|
||||||
parseto = herespecialcase <$> parseToOption
|
parseto = herespecialcase <$> parseToOption
|
||||||
where
|
where
|
||||||
herespecialcase "here" = Left ToHere
|
herespecialcase "here" = Left ToHere
|
||||||
|
herespecialcase "." = Left ToHere
|
||||||
herespecialcase n = Right $ ToRemote $ parseRemoteOption n
|
herespecialcase n = Right $ ToRemote $ parseRemoteOption n
|
||||||
|
|
||||||
instance DeferredParseClass MoveOptions where
|
instance DeferredParseClass MoveOptions where
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue