diff --git a/Command/Move.hs b/Command/Move.hs index 76b6c882a5..6c65b8c2ad 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -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