Try to make parent commit work on Windows (dbuenzli#167).

ocaml-dune · Apr 4, 2023 · 7c16578 · 7c16578
1 parent 15e0d59
commit 7c16578
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/cmdliner_manpage.ml b/src/cmdliner_manpage.ml
@@ -454,7 +454,10 @@ let pp_to_pager print ppf v =
   match pager with
   | None -> print `Plain ppf v
   | Some (pager, opts) ->
-      let pager = "LESS=FRX " ^ pager ^ opts in
+      let pager = match Sys.win32 with
+      | false -> "LESS=FRX " ^ pager ^ opts
+      | true -> "set LESS=FRX && " ^ pager ^ opts
+      in
       let groffer =
         let cmds =
           ["mandoc", " -m man -K utf-8 -T utf8";