Keep suggesting index on incoming message (#255)

Fixes #254
typestruck · Jun 24, 2024 · 2af910c · 2af910c
1 parent 3a2edcc
commit 2af910c
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/Client/Im/Main.purs b/src/Client/Im/Main.purs
@@ -571,9 +571,14 @@ receiveMessage
 
 unsuggest ∷ Int → ImModel → ImModel
 unsuggest userId model@{ suggestions, suggesting } = model
-      { suggestions = DA.filter ((userId /= _) <<< _.id) suggestions
-      , suggesting = (\i → if i == 0 then 0 else i - 1) <$> suggesting
+      { suggestions = updatedSuggestions
+      , suggesting = updatedSuggested
       }
+      where
+      updatedSuggestions = DA.filter ((userId /= _) <<< _.id) suggestions
+      updatedSuggested
+            | DA.length suggestions == DA.length updatedSuggestions = suggesting
+            | otherwise = (max 0 <<< (_ - 1)) <$> suggesting
 
 processIncomingMessage ∷ ClientMessagePayload → ImModel → Either Int ImModel
 processIncomingMessage