From b8c389eac5f875fc7ae9a5ab9ac446d24a079448 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 14:41:44 +0530
Subject: Fix issue with highlight index clamping

---
 src/Chelleport/AppState.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Chelleport/AppState.hs')

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
-- 
cgit v1.3.1