diff options
Diffstat (limited to 'lib/stitched_article.ml')
| -rw-r--r-- | lib/stitched_article.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml index d333747..9548e11 100644 --- a/lib/stitched_article.ml +++ b/lib/stitched_article.ml @@ -96,7 +96,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 -> @@ -128,7 +129,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_pre = "" + ; user_input_post = "" ; prompt = "COMMAND" ; on_enter = (fun command -> @@ -174,7 +176,8 @@ let rec render | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img - ; user_input = "" + ; user_input_pre = "" + ; user_input_post = "" ; prompt = "REGEXP" ; on_enter = (fun tag -> |