add some missing spaces to HandleInput.inputDescription

These are Text, not wrapped Pretty (although maybe they should be),
so they don't add spaces at `<>`.
This commit is contained in:
Arya Irani 2020-02-10 17:20:56 -05:00
parent 10768960b3
commit 6b02d69f03

View File

@ -292,15 +292,15 @@ loop = do
MergeLocalBranchI src dest -> "merge " <> p' src <> " " <> p' dest
ResetRootI src -> "reset-root " <> hp' src
AliasTermI src dest -> "alias.term " <> hqs' src <> " " <> ps' dest
AliasTypeI src dest -> "alias.type" <> hqs' src <> " " <> ps' dest
AliasTypeI src dest -> "alias.type " <> hqs' src <> " " <> ps' dest
MoveTermI src dest -> "move.term " <> hqs' src <> " " <> ps' dest
MoveTypeI src dest -> "move.type " <> hqs' src <> " " <> ps' dest
MoveBranchI src dest -> "move.namespace " <> ops' src <> " " <> ps' dest
MovePatchI src dest -> "move.patch " <> ps' src <> " " <> ps' dest
CopyPatchI src dest -> "copy.patch " <> ps' src <> " " <> ps' dest
DeleteI thing -> "delete" <> hqs' thing
DeleteI thing -> "delete " <> hqs' thing
DeleteTermI def -> "delete.term " <> hqs' def
DeleteTypeI def -> "delete.type" <> hqs' def
DeleteTypeI def -> "delete.type " <> hqs' def
DeleteBranchI opath -> "delete.namespace " <> ops' opath
DeletePatchI path -> "delete.patch " <> ps' path
ReplaceTermI srcH targetH p ->