From 3c75b78803c00a8e831da690451250987da84370 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 25 Nov 2024 20:04:03 +0000 Subject: [PATCH] Fix bug when dragging filtered items --- ghcidOutput | 2 +- src/Dodge/Update/Input/InGame.hs | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/ghcidOutput b/ghcidOutput index 97c804e05..d98a64403 100644 --- a/ghcidOutput +++ b/ghcidOutput @@ -1 +1 @@ -All good (594 modules, at 19:44:22) +All good (594 modules, at 20:03:59) diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 89f0c1e65..3bef44906 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -286,11 +286,12 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do (mini,_) <- IS.minView xs if x < (k,mini) then do - _ <- ss ^? ix (mini - 1) + --_ <- ss ^? ix (mini - 1) + guard $ not . null . fst $ IM.split mini ss guard $ Just (k,mini-1) /= ab return $ shiftInvItemsUp k xs w else do - _ <- ss ^? ix (maxi + 1) + guard $ not . null . snd $ IM.split maxi ss guard $ Just (k,maxi+1) < bn return $ shiftInvItemsDown k xs w