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/todos.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 '')
| -rw-r--r-- | lib/todos.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/todos.ml b/lib/todos.ml index bdbf877..6f8bef3 100644 --- a/lib/todos.ml +++ b/lib/todos.ml @@ -126,11 +126,8 @@ let rec render | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down () | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up () | `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 = "" |