diff options
Diffstat (limited to 'src/Chelleport/AppState.hs')
| -rw-r--r-- | src/Chelleport/AppState.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Chelleport/AppState.hs b/src/Chelleport/AppState.hs index 6c2de9c..4c8e0a8 100644 --- a/src/Chelleport/AppState.hs +++ b/src/Chelleport/AppState.hs @@ -77,7 +77,7 @@ update _ state (IncrementHighlightIndex n) = do action <- traverse (fmap MoveMousePosition . wordPosition) highlightedWord pure (state {stateRepetition = 1, stateMode = mode {searchHighlightedIndex = highlightedIndexClamped}}, action) where - highlightedWord = searchFilteredWords mode `itemAt` highlightedIndex + highlightedWord = searchFilteredWords mode `itemAt` highlightedIndexClamped highlightedIndex = searchHighlightedIndex mode + n highlightedIndexClamped = if highlightedIndex < 0 |