From 6da7dbbdd15d6059c2e316f8fe549390e61cb1a6 Mon Sep 17 00:00:00 2001
From: Josh Berdine <jjb@fb.com>
Date: Thu, 12 Nov 2020 16:36:32 -0800
Subject: [PATCH] [sledge] Fix sledge llvm translate command

Summary:
Applicative command line argument interpretation fail: using map
instead of compose meant that the type of the ignored arg was the
action function.

Reviewed By: jvillard

Differential Revision: D24746226

fbshipit-source-id: f1dd67067
---
 sledge/cli/sledge_cli.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sledge/cli/sledge_cli.ml b/sledge/cli/sledge_cli.ml
index 33a7b9a76..c7ce96d83 100644
--- a/sledge/cli/sledge_cli.ml
+++ b/sledge/cli/sledge_cli.ml
@@ -219,7 +219,9 @@ let llvm_grp =
        textual (.ll) form; or of the form @<argsfile>, where <argsfile> \
        names a file containing one <input> per line."
     in
-    let param = translate_inputs >>| fun _ () -> Report.Ok in
+    let param =
+      translate_inputs >*> Command.Param.return (fun _ -> Report.Ok)
+    in
     command ~summary ~readme param
   in
   let disassemble_cmd =