CLI.hs: fix double spaces in option help strings

Some help strings with continuation backslashes ('\') were providing a
space both before and after the backslash, resulting in double spaces in
help output. Provide it only after the backslash, which fixes the issue and
is consistent with the rest of the file.

Signed-off-by: Dato Simó <dato@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>

diff --git a/src/Ganeti/HTools/CLI.hs b/src/Ganeti/HTools/CLI.hs
index 9b6b7f0..6e40df7 100644 (file)
--- a/src/Ganeti/HTools/CLI.hs
+++ b/src/Ganeti/HTools/CLI.hs
@@ -286,7 +286,7 @@ oEvacMode :: OptType
 oEvacMode =
   (Option "E" ["evac-mode"]
    (NoArg (\opts -> Ok opts { optEvacMode = True }))
-   "enable evacuation mode, where the algorithm only moves \
+   "enable evacuation mode, where the algorithm only moves\
    \ instances away from offline and drained nodes",
    OptComplNone)
 
@@ -366,8 +366,8 @@ oMaxSolLength =
   (Option "l" ["max-length"]
    (reqWithConversion (tryRead "max solution length")
     (\i opts -> Ok opts { optMaxLength = i }) "N")
-   "cap the solution at this many balancing or allocation \
-   \ rounds (useful for very unbalanced clusters or empty \
+   "cap the solution at this many balancing or allocation\
+   \ rounds (useful for very unbalanced clusters or empty\
    \ clusters)",
    OptComplInteger)