diff options
Diffstat (limited to 'lib/todos.ml')
| -rw-r--r-- | lib/todos.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/todos.ml b/lib/todos.ml index 907538c..4e52cd4 100644 --- a/lib/todos.ml +++ b/lib/todos.ml @@ -8,7 +8,7 @@ type state = ; scroll : int ; content : (string * string) array ; content_pretty : string array - ; goto_headlines : unit -> unit + ; goto_headlines : state -> unit } let init ~goto_headlines ~content ~content_pretty = @@ -75,7 +75,7 @@ let rec render t ({ pos; scroll; content; content_pretty; goto_headlines } as st } in Input_screen.render t input_state - | `Key (`ASCII '1', []) -> goto_headlines () + | `Key (`ASCII '1', []) -> goto_headlines state | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down () | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up () | `Key (`ASCII 't', []) -> |