[sledge] Explicate output flag of disassemble command

Summary: This one was overlooked before

Reviewed By: kren1

Differential Revision: D16269729

fbshipit-source-id: 0aa86ca9a

sledge/sledge-help.txt

@@ -186,8 +186,8 @@ The <input> file must be LLAIR code, as produced by `sledge llvm translate`.
 === flags ===
 
   [-colors]                   enable printing in colors
-  [-llair <file>]   write generated textual LLAIR to <file>, or to standard
+  [-llair-txt-output <file>]  write generated textual LLAIR to <file>, or to
-                    output if omitted
+                              standard output if omitted
   [-margin <cols>]            wrap debug tracing at <cols> columns
   [-trace <spec>]             enable debug tracing
   [-help]                     print this help text and exit

sledge/src/sledge.ml

@@ -153,15 +153,15 @@ let disassemble_cmd =
   in
   let param =
     let%map_open input = anon ("<input>" %: string)
-    and llair =
+    and llair_txt_output =
-      flag "llair" (optional string)
+      flag "llair-txt-output" (optional string)
         ~doc:
           "<file> write generated textual LLAIR to <file>, or to standard \
            output if omitted"
     in
     fun () ->
       let program = unmarshal input () in
-      match llair with
+      match llair_txt_output with
       | None -> Format.printf "%a@." Llair.pp program
       | Some file ->
           Out_channel.with_file file ~f:(fun oc ->