aboutsummaryrefslogtreecommitdiff
path: root/lib/headlines.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/headlines.ml')
-rw-r--r--lib/headlines.ml9
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml
index 3c94f12..b8303c0 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -115,7 +115,8 @@ let rec render
| `Key (`ASCII 'o', []) ->
let (input_state : Input_prompt.state) =
{ screen = img
- ; user_input = ""
+ ; user_input_pre = ""
+ ; user_input_post = ""
; prompt = "EXPORT TO"
; on_enter =
(fun path ->
@@ -164,7 +165,8 @@ let rec render
| `Key (`ASCII 's', []) ->
let (input_state : Input_prompt.state) =
{ screen = img
- ; user_input = ""
+ ; user_input_post = ""
+ ; user_input_pre = ""
; prompt = "REGEXP"
; on_enter =
(fun tag ->
@@ -199,7 +201,8 @@ let rec render
let selected_file = Grep.execution_directory ^ "/" ^ selected_file in
let (input_state : Input_prompt.state) =
{ screen = img
- ; user_input = ""
+ ; user_input_post = ""
+ ; user_input_pre = ""
; prompt = "COMMAND"
; on_enter =
(fun command ->