[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

@@ -185,13 +185,13 @@ 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
-                    output if omitted
-  [-margin <cols>]  wrap debug tracing at <cols> columns
-  [-trace <spec>]   enable debug tracing
-  [-help]           print this help text and exit
-                    (alias: -?)
+  [-colors]                   enable printing in colors
+  [-llair-txt-output <file>]  write generated textual LLAIR to <file>, or to
+                              standard output if omitted
+  [-margin <cols>]            wrap debug tracing at <cols> columns
+  [-trace <spec>]             enable debug tracing
+  [-help]                     print this help text and exit
+                              (alias: -?)
 
 
 ====== sledge version ======

sledge/src/sledge.ml

@@ -153,15 +153,15 @@ let disassemble_cmd =
   in
   let param =
     let%map_open input = anon ("<input>" %: string)
-    and llair =
-      flag "llair" (optional string)
+    and llair_txt_output =
+      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 ->