diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-18 13:19:26 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-18 13:19:26 -0500 |
| commit | f805a04bd0600653f71e5e4e006104892cf7b6b9 (patch) | |
| tree | b23c323682fafb9825e7bff5f753a4941ffc5e1b /lib/headlines.ml | |
| parent | fbbbdca67c79145d43d6fdd59202a36fddfc8cd0 (diff) | |
| download | stitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.tar.gz stitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.tar.bz2 stitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.zip | |
Add run command to done; fix content bug
Diffstat (limited to 'lib/headlines.ml')
| -rw-r--r-- | lib/headlines.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml index 654e389..915ba22 100644 --- a/lib/headlines.ml +++ b/lib/headlines.ml @@ -152,11 +152,8 @@ let rec render | `Down -> scroll_down () | _ -> render t state) | `Key (`ASCII '!', []) -> - let selected_file, _ = Array.get content content_position in + let selected_file, content = Array.get content content_position in let selected_file = Grep.execution_directory ^ "/" ^ selected_file in - let content = - Array.map (fun (_, c) -> c) content |> Array.to_list |> String.concat "\n" - in let (input_state : Input_prompt.state) = { screen = img ; user_input = "" |