Do not pre-write the answer to questions with the default anwser

ocaml · Nov 11, 2024 · 668b1b4 · 668b1b4
1 parent 7678301
commit 668b1b4
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/core/opamConsole.ml b/src/core/opamConsole.ml
@@ -824,12 +824,13 @@ let confirm ?(require_unsafe_yes=false) ?(default=true) fmt =
       then
         (formatted_msg "%sn\n" prompt; false)
       else
-        short_user_input ~prompt ~default:(if default then 'y' else 'n')
+        short_user_input ~prompt ~default:' '
         (function
-        | "y" | "yes" -> Some true
-        | "n" | "no" -> Some false
-        | "\027" -> Some false (* echap *)
-        | _  -> None))
+          | " " -> Some default
+          | "y" | "yes" -> Some true
+          | "n" | "no" -> Some false
+          | "\027" -> Some false (* echap *)
+          | _  -> None))
     fmt
 
 let read fmt =